From: Enrico Tassi Date: Wed, 25 Jul 2007 10:13:55 +0000 (+0000) Subject: added another example in which our coercions are powerful X-Git-Tag: 0.4.95@7852~280 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a3e29f98401e8a08957cc2bd7937fdfa38fdeb35;p=helm.git added another example in which our coercions are powerful --- diff --git a/matita/tests/coercions_open.ma b/matita/tests/coercions_open.ma new file mode 100644 index 000000000..d0d8caedb --- /dev/null +++ b/matita/tests/coercions_open.ma @@ -0,0 +1,38 @@ +(**************************************************************************) +(* ___ *) +(* ||M|| *) +(* ||A|| A project by Andrea Asperti *) +(* ||T|| *) +(* ||I|| Developers: *) +(* ||T|| The HELM team. *) +(* ||A|| http://helm.cs.unibo.it *) +(* \ / *) +(* \ / This file is distributed under the terms of the *) +(* v GNU General Public License Version 2 *) +(* *) +(**************************************************************************) + +set "baseuri" "cic:/matita/test/". + +include "logic/equality.ma". +include "nat/nat.ma". + +axiom A : nat -> Type. +axiom B : nat -> Type. +axiom AB : \forall x. A x = B x. + +axiom eatA : ∀n. A n -> A O. +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. + +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