set "baseuri" "cic:/matita/tests/coercions/".
include "nat/compare.ma".
-include "datatypes/bool.ma".
+include "nat/times.ma".
inductive pos: Set \def
| one : pos
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).