(**************************************************************************)
set "baseuri" "cic:/matita/tests/change/".
-include "coq.ma".
+include "legacy/coq.ma".
alias num (instance 0) = "natural number".
alias symbol "eq" (instance 0) = "Coq's leibnitz's equality".
alias symbol "plus" (instance 0) = "Coq's natural plus".
alias id "True" = "cic:/Coq/Init/Logic/True.ind#xpointer(1/1)".
theorem t: (\forall x:nat. x=x) \to True.
intro H.
- change in match x in H : \forall _.% with 0+x.
- change in H: \forall _.(? ? ? (? % ?)) with 0.
+ change in match x in H : (\forall _.%) with (0+x).
+ change in H: (\forall _.(? ? ? (? % ?))) with 0.
constructor 1.
qed.