]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/tests/coercions.ma
restored the good factorization file
[helm.git] / matita / tests / coercions.ma
index dc4e030bd45d5d0e925948546d0027a2964f110b..1d841d16ebc2f3cad7299d9ec30cf9198ffa81c8 100644 (file)
@@ -105,7 +105,8 @@ definition church: nat \to nat \to nat \def times.
 coercion cic:/matita/tests/coercions/church.con 1.
 
 definition mapmult:  \forall n:nat.\forall l:listn nat n. nat \to nat \to nat \def
-  \lambda n:nat.\lambda l:listn nat n.\lambda m,o:nat.l m o.
+  \lambda n:nat.\lambda l:listn nat n.\lambda m,o:nat.
+  l (m m) o (o o o).