X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Fcoercions_contravariant.ma;fp=matita%2Ftests%2Fcoercions_contravariant.ma;h=153c295c59642d016149aa25ff0806523e3b8fae;hb=73e52492b520deb0e79e75bd47733366e27e278d;hp=64f85ea7521ee4875cf40c401ca6218a720791bb;hpb=9aa2df835e06cb49ba6381cef62b8aa137aad9c2;p=helm.git diff --git a/matita/tests/coercions_contravariant.ma b/matita/tests/coercions_contravariant.ma index 64f85ea75..153c295c5 100644 --- a/matita/tests/coercions_contravariant.ma +++ b/matita/tests/coercions_contravariant.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/test/". + include "logic/equality.ma". include "nat/nat.ma". @@ -26,8 +26,8 @@ axiom d : ∀n,m. B n -> B1 m. axiom f : ∀n,m. A n -> B m. axiom g : ∀n.B n. -coercion cic:/matita/test/c.con. -coercion cic:/matita/test/d.con. +coercion cic:/matita/tests/coercions_contravariant/c.con. +coercion cic:/matita/tests/coercions_contravariant/d.con. definition foo := λn,n1,m,m1.(λx.d m m1 (f n m (c n1 n x)) : A1 n1 -> B1 m1). definition foo1_1 := λn,n1,m,m1.(f n m : A1 n1 -> B1 m1). @@ -35,4 +35,4 @@ definition foo1_1 := λn,n1,m,m1.(f n m : A1 n1 -> B1 m1). definition h := λn,m.λx:A n.g m. definition foo2 := λn,n1,m,m1.(h n m : A1 n1 -> B1 m1). definition foo3 := λn1,n,m,m1.(h n m : A1 n1 -> B1 m1). -definition foo4 := λn1,n,m1,m.(h n m : A1 n1 -> B1 m1). \ No newline at end of file +definition foo4 := λn1,n,m1,m.(h n m : A1 n1 -> B1 m1).