X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fcoercions.ma;h=1d841d16ebc2f3cad7299d9ec30cf9198ffa81c8;hb=b6c399fc59c61c1071c942f539fabda4d74bb922;hp=e792bd78010b3a67a87f3455be0ff3998f5e891b;hpb=abd2098b6c4a40b36bb4b950c607eb4b4a7852bc;p=helm.git

diff --git a/helm/software/matita/tests/coercions.ma b/helm/software/matita/tests/coercions.ma
index e792bd780..1d841d16e 100644
--- a/helm/software/matita/tests/coercions.ma
+++ b/helm/software/matita/tests/coercions.ma
@@ -15,7 +15,7 @@
 set "baseuri" "cic:/matita/tests/coercions/".
 
 include "nat/compare.ma".
-include "datatypes/bool.ma".
+include "nat/times.ma".
 
 inductive pos: Set \def
 | one : pos
@@ -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).