X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Fcoercions.ma;h=3d788a813d80221ed63fe23a83cb0fc6ceaca571;hb=6ff514ec3bdc39bd0afbdfb210290a670a20a60d;hp=8e7582a147113a99b67e93e6bf484fe2865efb26;hpb=61d5edd7f92c89bceae245453dead8cbd2a276b7;p=helm.git

diff --git a/matita/tests/coercions.ma b/matita/tests/coercions.ma
index 8e7582a14..3d788a813 100644
--- a/matita/tests/coercions.ma
+++ b/matita/tests/coercions.ma
@@ -112,6 +112,23 @@ definition mapmult:  \forall n:nat.\forall l:listn nat n. nat \to nat \to nat \d
   \lambda n:nat.\lambda l:listn nat n.\lambda m,o:nat.
   l (m m) o (o o o).
 
+axiom T0 : Type.
+axiom T1 : Type.
+axiom T2 : Type.
+axiom T3 : Type.
+
+axiom c1 : T0 -> T1.
+axiom c2 : T1 -> T2.
+axiom c3 : T2 -> T3.
+axiom c4 : T2 -> T1.
+
+coercion cic:/matita/tests/coercions/c1.con.
+coercion cic:/matita/tests/coercions/c2.con.
+coercion cic:/matita/tests/coercions/c3.con.
+coercion cic:/matita/tests/coercions/c4.con.
+
+
+
   
   
  
\ No newline at end of file