Make ap a defined operation

GaloisInc · Jan 4, 2021 · f5a9b9d · f5a9b9d
1 parent dfe522a
commit f5a9b9d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 14 deletions.
diff --git a/lib/Testing.cry b/lib/Testing.cry
@@ -12,9 +12,11 @@ primitive runGen : {a} [8] -> [256] -> Gen a -> a
 primitive return : {a} a -> Gen a
 primitive (>>=)  : {a,b} Gen a -> (a -> Gen b) -> Gen b
 primitive (<$>)  : {a,b} (a -> b) -> Gen a -> Gen b
-primitive (<*>)  : {a,b} Gen (a -> b) -> Gen a -> Gen b
 primitive genStream : {a} Gen a -> Gen ([inf]a)
 
+(<*>)  : {a,b} Gen (a -> b) -> Gen a -> Gen b
+(<*>) mf mx = mf >>= \f -> f <$> mx
+
 primitive withSize : {a} [8] -> Gen a -> Gen a
 
 // primitive type RandGen : *

diff --git a/src/Cryptol/Eval/Generic.hs b/src/Cryptol/Eval/Generic.hs
@@ -2366,19 +2366,6 @@ testingPrims sym = Map.fromList $ map (\(n, v) -> (testingPrim n, v)) prims
                 x <- m'
                 sGenLift sym (f' (pure x))
 
-    , "<*>" ~>
-         PTyPoly \_a ->
-         PTyPoly \_b ->
-         PFun    \mf ->
-         PFun    \m ->
-         PPrim
-           do mf' <- fromVGen <$> mf
-              m'  <- fromVGen <$> m
-              pure $ VGen do
-                f <- fromVFun sym <$> mf'
-                x <- m'
-                sGenLift sym (f (pure x))
-
     , ">>=" ~>
          PTyPoly \_a ->
          PTyPoly \_b ->