]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/tests/replace.ma
updating the structures for sorts
[helm.git] / helm / software / matita / tests / replace.ma
index e9960a507de28d4ee7e3dcb344e2b2e373df12d4..37a5309784a983a56258338d814595d83e964a10 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/tests/replace/".
-include "legacy/coq.ma".
+
+include "coq.ma".
 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
-alias num (instance 0) = "natural number".
+alias num (instance 0) = "Coq natural number".
 alias symbol "eq" (instance 0) = "Coq's leibnitz's equality".
 alias symbol "plus" (instance 0) = "Coq's natural plus".
 alias symbol "times" (instance 0) = "Coq's natural times".
@@ -30,7 +30,7 @@ theorem t: \forall x:nat. x * (x + 0) = (0 + x) * (x + x * 0).
  rewrite < (plus_n_O x).
  reflexivity.
  reflexivity.
- auto new.
+ autobatch library.
 qed.
 
 (* This test tests "replace in match t" where t contains some metavariables *)