X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Fcoercions_open.ma;fp=matita%2Ftests%2Fcoercions_open.ma;h=69723aa89686913a6496ceceb8ef42020e732102;hb=73e52492b520deb0e79e75bd47733366e27e278d;hp=d0d8caedbfe0d415d79c496c2b3b3e2e8492a932;hpb=9aa2df835e06cb49ba6381cef62b8aa137aad9c2;p=helm.git diff --git a/matita/tests/coercions_open.ma b/matita/tests/coercions_open.ma index d0d8caedb..69723aa89 100644 --- a/matita/tests/coercions_open.ma +++ b/matita/tests/coercions_open.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/test/". + include "logic/equality.ma". include "nat/nat.ma". @@ -27,12 +27,12 @@ axiom eatB : ∀n. B n -> A O. axiom jmcBA : ∀n,m.∀p:A n = B m.B m -> A n. axiom jmcAB : ∀n,m.∀p:A n = B m.A n -> B m. -coercion cic:/matita/test/jmcAB.con. -coercion cic:/matita/test/jmcBA.con. +coercion cic:/matita/tests/coercions_open/jmcAB.con. +coercion cic:/matita/tests/coercions_open/jmcBA.con. axiom daemon : ∀x,y:A O.x = y. alias num (instance 0) = "natural number". lemma xx : ∀b:B 2.∀a:A 1.eatA ? b = eatB ? a. intros; [3,5,7,9: apply AB|1: apply daemon];skip. -qed. \ No newline at end of file +qed.