[Builtins] [Test] Dump denotation signatures to golden files (#6462)

This dumps the type signature of the denotation of each of the builtins to a golden file. All changes in type signatures must be reflected explicitly whenever they're captured by semantics variants (see the test code). This is a very important test given how easy it is to change the behavior of a builtin just by slightly tweaking the signature of its denotation.
IntersectMBO · Sep 13, 2024 · 179e07c · 179e07c
1 parent cbf99fb
commit 179e07c
Show file tree

Hide file tree

Showing 128 changed files with 292 additions and 20 deletions.
diff --git a/4 b/4
diff --git a/plutus-core/plutus-core/examples/PlutusCore/Examples/Builtins.hs b/plutus-core/plutus-core/examples/PlutusCore/Examples/Builtins.hs
@@ -137,6 +137,7 @@ data ExtensionFun
     | ExtensionVersion -- Reflect the version of the Extension
     | TrackCosts  -- For checking that each cost is released and can be picked up by GC once it's
                   -- accounted for in the evaluator.
+    | IntNoIntegerNoWord  -- For testing the signature dump test.
     deriving stock (Show, Eq, Ord, Enum, Bounded, Ix, Generic)
     deriving anyclass (Hashable)
 
@@ -231,9 +232,12 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni ExtensionFun where
     type CostingPart uni ExtensionFun = ()
 
     data BuiltinSemanticsVariant ExtensionFun =
-              ExtensionFunSemanticsVariantX
-            | ExtensionFunSemanticsVariantY
-        deriving stock (Enum, Bounded, Show)
+              ExtensionFunSemanticsVariant0
+            | ExtensionFunSemanticsVariant1
+            | ExtensionFunSemanticsVariant2
+            | ExtensionFunSemanticsVariant3
+            | ExtensionFunSemanticsVariant4
+        deriving stock (Eq, Ord, Enum, Bounded, Show)
 
     toBuiltinMeaning :: forall val. HasMeaningIn uni val
                      => BuiltinSemanticsVariant ExtensionFun
@@ -464,8 +468,11 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni ExtensionFun where
         makeBuiltinMeaning
             @(() -> Integer)
             (\_ -> case semvar of
-                ExtensionFunSemanticsVariantX -> 0
-                ExtensionFunSemanticsVariantY -> 1)
+                ExtensionFunSemanticsVariant0 -> 0
+                ExtensionFunSemanticsVariant1 -> 1
+                ExtensionFunSemanticsVariant2 -> 2
+                ExtensionFunSemanticsVariant3 -> 3
+                ExtensionFunSemanticsVariant4 -> 4)
             whatever
 
     -- We want to know if the CEK machine releases individual budgets after accounting for them and
@@ -537,5 +544,13 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni ExtensionFun where
             (\_ -> unsafePerformIO $ reverse <$> readMVar numsOfGcedVar)
             (\_ -> unsafePerformIO . regBudgets . runCostingFunOneArgument model)
 
+    toBuiltinMeaning semvar IntNoIntegerNoWord =
+        case semvar of
+            ExtensionFunSemanticsVariant0 -> makeBuiltinMeaning @(Int     -> ()) mempty whatever
+            ExtensionFunSemanticsVariant1 -> makeBuiltinMeaning @(Integer -> ()) mempty whatever
+            ExtensionFunSemanticsVariant2 -> makeBuiltinMeaning @(Integer -> ()) mempty whatever
+            ExtensionFunSemanticsVariant3 -> makeBuiltinMeaning @(Word    -> ()) mempty whatever
+            ExtensionFunSemanticsVariant4 -> makeBuiltinMeaning @(Word    -> ()) mempty whatever
+
 instance Default (BuiltinSemanticsVariant ExtensionFun) where
-    def = ExtensionFunSemanticsVariantY
+    def = maxBound
diff --git a/plutus-core/plutus-core/src/PlutusCore/Builtin/Meaning.hs b/plutus-core/plutus-core/src/PlutusCore/Builtin/Meaning.hs
@@ -6,6 +6,7 @@
 {-# LANGUAGE FlexibleInstances         #-}
 {-# LANGUAGE MultiParamTypeClasses     #-}
 {-# LANGUAGE PolyKinds                 #-}
+{-# LANGUAGE RankNTypes                #-}
 {-# LANGUAGE StandaloneKindSignatures  #-}
 {-# LANGUAGE TypeApplications          #-}
 {-# LANGUAGE TypeFamilies              #-}
@@ -90,15 +91,26 @@ class
         -> fun
         -> BuiltinMeaning val (CostingPart uni fun)
 
+-- | Feed the 'TypeScheme' of the given built-in function to the continuation.
+withTypeSchemeOfBuiltinFunction
+    :: forall val fun r.
+       (ToBuiltinMeaning (UniOf val) fun, ExMemoryUsage val, Typeable val, HasConstant val)
+    => BuiltinSemanticsVariant fun
+    -> fun
+    -> (forall args res. TypeScheme val args res -> r)
+    -> r
+withTypeSchemeOfBuiltinFunction semVar fun k =
+    case toBuiltinMeaning semVar fun of
+        BuiltinMeaning sch _ _ -> k sch
+
 -- | Get the type of a built-in function.
 typeOfBuiltinFunction
     :: forall uni fun. ToBuiltinMeaning uni fun
     => BuiltinSemanticsVariant fun
     -> fun
     -> Type TyName uni ()
-typeOfBuiltinFunction semvar fun =
-    case toBuiltinMeaning @_ @_ @(Term TyName Name uni fun ()) semvar fun of
-        BuiltinMeaning sch _ _ -> typeSchemeToType sch
+typeOfBuiltinFunction semVar fun =
+    withTypeSchemeOfBuiltinFunction @(Term TyName Name uni fun ()) semVar fun typeSchemeToType
 
 {- Note [Builtin semantics variants]
 The purpose of the "builtin semantics variant" feature is to provide multiple,

diff --git a/plutus-core/plutus-core/src/PlutusCore/Builtin/TypeScheme.hs b/plutus-core/plutus-core/src/PlutusCore/Builtin/TypeScheme.hs
@@ -27,8 +27,8 @@ import PlutusCore.Name.Unique
 import Data.Kind qualified as GHC (Type)
 import Data.Proxy
 import Data.Text qualified as Text
+import Data.Typeable
 import GHC.TypeLits
-import Type.Reflection
 
 infixr 9 `TypeSchemeArrow`
 
@@ -78,9 +78,27 @@ typeSchemeToType :: TypeScheme val args res -> Type TyName (UniOf val) ()
 typeSchemeToType sch@TypeSchemeResult       = toTypeAst sch
 typeSchemeToType sch@(TypeSchemeArrow schB) =
     TyFun () (toTypeAst $ argProxy sch) $ typeSchemeToType schB
-typeSchemeToType (TypeSchemeAll proxy schK) = case proxy of
-    (_ :: Proxy '(text, uniq, kind)) ->
-        let text = Text.pack $ symbolVal @text Proxy
-            uniq = fromIntegral $ natVal @uniq Proxy
-            a    = TyName $ Name text $ Unique uniq
-        in TyForall () a (demoteKind $ knownKind @kind) $ typeSchemeToType schK
+typeSchemeToType (TypeSchemeAll (_ :: Proxy '(text, uniq, kind)) schB) =
+    let text = Text.pack $ symbolVal @text Proxy
+        uniq = fromIntegral $ natVal @uniq Proxy
+        a    = TyName $ Name text $ Unique uniq
+    in TyForall () a (demoteKind $ knownKind @kind) $ typeSchemeToType schB
+
+-- The precedence of @->@ is @-1@, which is why this number appears in the implementation of the
+-- instance.
+instance Show (TypeScheme val args res) where
+    showsPrec p sch@TypeSchemeResult =
+        showParen (p > 0)
+            $ showsPrec (-1) (typeRep sch)
+    showsPrec p sch@(TypeSchemeArrow schB) =
+        showParen (p > 0)
+            $ -- @0@ is to account for associativity, see https://stackoverflow.com/a/43639618
+              showsPrec 0 (typeRep $ argProxy sch)
+            . showString " -> "
+            . showsPrec (-1) schB
+    showsPrec p (TypeSchemeAll (_ :: Proxy '(text, uniq, kind)) schB) =
+        showParen (p > 0)
+            $ showString "forall "
+            . showString (symbolVal @text Proxy)
+            . showString ". "
+            . showsPrec 0 schB
diff --git a/plutus-core/plutus-core/src/PlutusCore/Default/Builtins.hs b/plutus-core/plutus-core/src/PlutusCore/Default/Builtins.hs
@@ -1120,7 +1120,7 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni DefaultFun where
         = DefaultFunSemanticsVariantA
         | DefaultFunSemanticsVariantB
         | DefaultFunSemanticsVariantC
-        deriving stock (Eq, Enum, Bounded, Show, Generic)
+        deriving stock (Eq, Ord, Enum, Bounded, Show, Generic)
         deriving anyclass (NFData, NoThunks)
 
     -- Integers

diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AddInteger.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AddInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Integer
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AndByteString.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AndByteString.sig.golden
@@ -0,0 +1 @@
+Bool -> ByteString -> ByteString -> ByteString
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AppendByteString.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AppendByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> ByteString
diff --git a/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AppendString.sig.golden b/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/AppendString.sig.golden
@@ -0,0 +1 @@
+Text -> Text -> Text
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/BData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/BData.sig.golden
@@ -0,0 +1 @@
+ByteString -> Data
diff --git a/...s-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Blake2b_224.sig.golden b/...s-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Blake2b_224.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...s-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Blake2b_256.sig.golden b/...s-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Blake2b_256.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_add.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_add.sig.golden
@@ -0,0 +1 @@
+Element -> Element -> Element
diff --git a/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_compress.sig.golden b/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_compress.sig.golden
@@ -0,0 +1 @@
+Element -> ByteString
diff --git a/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_equal.sig.golden b/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_equal.sig.golden
@@ -0,0 +1 @@
+Element -> Element -> Bool
diff --git a/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_hashToGroup.sig.golden b/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_hashToGroup.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> BuiltinResult Element
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_neg.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_neg.sig.golden
@@ -0,0 +1 @@
+Element -> Element
diff --git a/...us-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_scalarMul.sig.golden b/...us-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_scalarMul.sig.golden
@@ -0,0 +1 @@
+Integer -> Element -> Element
diff --git a/...s-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_uncompress.sig.golden b/...s-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G1_uncompress.sig.golden
@@ -0,0 +1 @@
+ByteString -> BuiltinResult Element
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_add.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_add.sig.golden
@@ -0,0 +1 @@
+Element -> Element -> Element
diff --git a/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_compress.sig.golden b/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_compress.sig.golden
@@ -0,0 +1 @@
+Element -> ByteString
diff --git a/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_equal.sig.golden b/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_equal.sig.golden
@@ -0,0 +1 @@
+Element -> Element -> Bool
diff --git a/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_hashToGroup.sig.golden b/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_hashToGroup.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> BuiltinResult Element
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_neg.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_neg.sig.golden
@@ -0,0 +1 @@
+Element -> Element
diff --git a/...us-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_scalarMul.sig.golden b/...us-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_scalarMul.sig.golden
@@ -0,0 +1 @@
+Integer -> Element -> Element
diff --git a/...s-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_uncompress.sig.golden b/...s-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_G2_uncompress.sig.golden
@@ -0,0 +1 @@
+ByteString -> BuiltinResult Element
diff --git a/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_finalVerify.sig.golden b/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_finalVerify.sig.golden
@@ -0,0 +1 @@
+MlResult -> MlResult -> Bool
diff --git a/...utus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_millerLoop.sig.golden b/...utus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_millerLoop.sig.golden
@@ -0,0 +1 @@
+Element -> Element -> MlResult
diff --git a/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_mulMlResult.sig.golden b/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Bls12_381_mulMlResult.sig.golden
@@ -0,0 +1 @@
+MlResult -> MlResult -> MlResult
diff --git a/...lutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ByteStringToInteger.sig.golden b/...lutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ByteStringToInteger.sig.golden
@@ -0,0 +1 @@
+Bool -> ByteString -> Integer
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseData.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseData.sig.golden
@@ -0,0 +1 @@
+forall a. Data -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0))
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseList.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseList.sig.golden
@@ -0,0 +1 @@
+forall a. forall b. SomeConstant DefaultUni [TyVarRep * ('TyNameRep * "a" 0)] -> Opaque Val (TyVarRep * ('TyNameRep * "b" 1)) -> Opaque Val (TyVarRep * ('TyNameRep * "b" 1)) -> BuiltinResult (Opaque Val (TyVarRep * ('TyNameRep * "b" 1)))
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseUnit.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ChooseUnit.sig.golden
@@ -0,0 +1 @@
+forall a. () -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0))
diff --git a/...utus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ComplementByteString.sig.golden b/...utus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ComplementByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...thesis/Golden/Signatures/DefaultFun/ConsByteString_DefaultFunSemanticsVariantA.sig.golden b/...thesis/Golden/Signatures/DefaultFun/ConsByteString_DefaultFunSemanticsVariantA.sig.golden
@@ -0,0 +1 @@
+Integer -> ByteString -> ByteString
diff --git a/...thesis/Golden/Signatures/DefaultFun/ConsByteString_DefaultFunSemanticsVariantC.sig.golden b/...thesis/Golden/Signatures/DefaultFun/ConsByteString_DefaultFunSemanticsVariantC.sig.golden
@@ -0,0 +1 @@
+Word8 -> ByteString -> ByteString
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ConstrData.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ConstrData.sig.golden
@@ -0,0 +1 @@
+Integer -> [Data] -> Data
diff --git a/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/CountSetBits.sig.golden b/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/CountSetBits.sig.golden
@@ -0,0 +1 @@
+ByteString -> Int
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/DecodeUtf8.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/DecodeUtf8.sig.golden
@@ -0,0 +1 @@
+ByteString -> BuiltinResult Text
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/DivideInteger.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/DivideInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> BuiltinResult Integer
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EncodeUtf8.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EncodeUtf8.sig.golden
@@ -0,0 +1 @@
+Text -> ByteString
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsByteString.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> Bool
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsData.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsData.sig.golden
@@ -0,0 +1 @@
+Data -> Data -> Bool
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsInteger.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Bool
diff --git a/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsString.sig.golden b/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/EqualsString.sig.golden
@@ -0,0 +1 @@
+Text -> Text -> Bool
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ExpModInteger.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ExpModInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Natural -> BuiltinResult Natural
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/FindFirstSetBit.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/FindFirstSetBit.sig.golden
@@ -0,0 +1 @@
+ByteString -> Int
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/FstPair.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/FstPair.sig.golden
@@ -0,0 +1 @@
+forall a. forall b. SomeConstant DefaultUni ((TyVarRep * ('TyNameRep * "a" 0)),(TyVarRep * ('TyNameRep * "b" 1))) -> BuiltinResult (Opaque Val (TyVarRep * ('TyNameRep * "a" 0)))
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/HeadList.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/HeadList.sig.golden
@@ -0,0 +1 @@
+forall a. SomeConstant DefaultUni [TyVarRep * ('TyNameRep * "a" 0)] -> BuiltinResult (Opaque Val (TyVarRep * ('TyNameRep * "a" 0)))
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IData.sig.golden
@@ -0,0 +1 @@
+Integer -> Data
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IfThenElse.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IfThenElse.sig.golden
@@ -0,0 +1 @@
+forall a. Bool -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0))
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IndexByteString.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IndexByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> Int -> BuiltinResult Word8
diff --git a/...lutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IntegerToByteString.sig.golden b/...lutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/IntegerToByteString.sig.golden
@@ -0,0 +1 @@
+Bool -> NumBytesCostedAsNumWords -> Integer -> BuiltinResult ByteString
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Keccak_256.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Keccak_256.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LengthOfByteString.sig.golden b/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LengthOfByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> Int
diff --git a/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanByteString.sig.golden b/...plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> Bool
diff --git a/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanEqualsByteString.sig.golden b/...-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanEqualsByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> Bool
diff --git a/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanEqualsInteger.sig.golden b/...tus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanEqualsInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Bool
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanInteger.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/LessThanInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Bool
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ListData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ListData.sig.golden
@@ -0,0 +1 @@
+[Data] -> Data
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MapData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MapData.sig.golden
@@ -0,0 +1 @@
+[(Data,Data)] -> Data
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkCons.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkCons.sig.golden
@@ -0,0 +1 @@
+forall a. SomeConstant DefaultUni (TyVarRep * ('TyNameRep * "a" 0)) -> SomeConstant DefaultUni [TyVarRep * ('TyNameRep * "a" 0)] -> BuiltinResult (Opaque Val [TyVarRep * ('TyNameRep * "a" 0)])
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkNilData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkNilData.sig.golden
@@ -0,0 +1 @@
+() -> [Data]
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkNilPairData.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkNilPairData.sig.golden
@@ -0,0 +1 @@
+() -> [(Data,Data)]
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkPairData.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MkPairData.sig.golden
@@ -0,0 +1 @@
+Data -> Data -> (Data,Data)
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ModInteger.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ModInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> BuiltinResult Integer
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MultiplyInteger.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/MultiplyInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Integer
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/NullList.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/NullList.sig.golden
@@ -0,0 +1 @@
+forall a. SomeConstant DefaultUni [TyVarRep * ('TyNameRep * "a" 0)] -> BuiltinResult Bool
diff --git a/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/OrByteString.sig.golden b/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/OrByteString.sig.golden
@@ -0,0 +1 @@
+Bool -> ByteString -> ByteString -> ByteString
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/QuotientInteger.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/QuotientInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> BuiltinResult Integer
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ReadBit.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ReadBit.sig.golden
@@ -0,0 +1 @@
+ByteString -> Int -> BuiltinResult Bool
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/RemainderInteger.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/RemainderInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> BuiltinResult Integer
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ReplicateByte.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ReplicateByte.sig.golden
@@ -0,0 +1 @@
+NumBytesCostedAsNumWords -> Word8 -> BuiltinResult ByteString
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Ripemd_160.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Ripemd_160.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/RotateByteString.sig.golden b/...e/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/RotateByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> IntegerCostedLiterally -> ByteString
diff --git a/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SerialiseData.sig.golden b/...core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SerialiseData.sig.golden
@@ -0,0 +1 @@
+Data -> ByteString
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Sha2_256.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Sha2_256.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Sha3_256.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Sha3_256.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ShiftByteString.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/ShiftByteString.sig.golden
@@ -0,0 +1 @@
+ByteString -> IntegerCostedLiterally -> ByteString
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SliceByteString.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SliceByteString.sig.golden
@@ -0,0 +1 @@
+Int -> Int -> ByteString -> ByteString
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SndPair.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SndPair.sig.golden
@@ -0,0 +1 @@
+forall a. forall b. SomeConstant DefaultUni ((TyVarRep * ('TyNameRep * "a" 0)),(TyVarRep * ('TyNameRep * "b" 1))) -> BuiltinResult (Opaque Val (TyVarRep * ('TyNameRep * "b" 1)))
diff --git a/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SubtractInteger.sig.golden b/...re/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/SubtractInteger.sig.golden
@@ -0,0 +1 @@
+Integer -> Integer -> Integer
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/TailList.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/TailList.sig.golden
@@ -0,0 +1 @@
+forall a. SomeConstant DefaultUni [TyVarRep * ('TyNameRep * "a" 0)] -> BuiltinResult (Opaque Val [TyVarRep * ('TyNameRep * "a" 0)])
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Trace.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/Trace.sig.golden
@@ -0,0 +1 @@
+forall a. Text -> Opaque Val (TyVarRep * ('TyNameRep * "a" 0)) -> BuiltinResult (Opaque Val (TyVarRep * ('TyNameRep * "a" 0)))
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnBData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnBData.sig.golden
@@ -0,0 +1 @@
+Data -> BuiltinResult ByteString
diff --git a/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnConstrData.sig.golden b/...-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnConstrData.sig.golden
@@ -0,0 +1 @@
+Data -> BuiltinResult (Integer,[Data])
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnIData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnIData.sig.golden
@@ -0,0 +1 @@
+Data -> BuiltinResult Integer
diff --git a/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnListData.sig.golden b/...us-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnListData.sig.golden
@@ -0,0 +1 @@
+Data -> BuiltinResult [Data]
diff --git a/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnMapData.sig.golden b/plutus-core/plutus-core/test/TypeSynthesis/Golden/Signatures/DefaultFun/UnMapData.sig.golden
@@ -0,0 +1 @@
+Data -> BuiltinResult [(Data,Data)]
diff --git a/.../test/TypeSynthesis/Golden/Signatures/DefaultFun/VerifyEcdsaSecp256k1Signature.sig.golden b/.../test/TypeSynthesis/Golden/Signatures/DefaultFun/VerifyEcdsaSecp256k1Signature.sig.golden
@@ -0,0 +1 @@
+ByteString -> ByteString -> ByteString -> BuiltinResult Bool