X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fmatita%2Ftests%2Felim.ma;h=ab7afafa69e34cf52a33b9530ffaa2aa4e5ab9b6;hb=7bbce6bc163892cfd99cfcda65db42001b86789f;hp=d7dd320e227ace04d856832fb7604015795401e0;hpb=42e7448a9e2eb9c44a336f0f3e56c9249f46fcc6;p=helm.git diff --git a/helm/matita/tests/elim.ma b/helm/matita/tests/elim.ma index d7dd320e2..ab7afafa6 100644 --- a/helm/matita/tests/elim.ma +++ b/helm/matita/tests/elim.ma @@ -19,9 +19,9 @@ inductive stupidtype: Set \def | Next : stupidtype \to stupidtype | Pair : stupidtype \to stupidtype \to stupidtype. -alias symbol "eq" (instance 0) = "leibnitz's equality". -alias symbol "exists" (instance 0) = "exists". -alias symbol "or" (instance 0) = "logical or". +alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". +alias symbol "exists" (instance 0) = "Coq's exists". +alias symbol "or" (instance 0) = "Coq's logical or". alias num (instance 0) = "natural number". alias id "True" = "cic:/Coq/Init/Logic/True.ind#xpointer(1/1)". alias id "refl_equal" = "cic:/Coq/Init/Logic/eq.ind#xpointer(1/1/1)". @@ -38,9 +38,9 @@ elim a. clear a.left.left. reflexivity. clear H.clear H1.clear a.right. - exists.exact e2.exists.exact e1.reflexivity. + exists.exact s.exists.exact s1.reflexivity. clear H.clear a.left.right. - exists.exact e3.reflexivity. + exists.exact s.reflexivity. qed. theorem t: 0=0 \to stupidtype.