X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Freplace.ma;h=d209e97d42f6fb6ea474d5dcfc8486a0943ecf01;hb=dc861d214cb992a898f81752614201b8074eef12;hp=776750de201f92c4c84a7c5edfc00b0f964189ee;hpb=d6db84901876935c7bb55c3a7393684c69bc5a8f;p=helm.git

diff --git a/helm/matita/tests/replace.ma b/helm/matita/tests/replace.ma
index 776750de2..d209e97d4 100644
--- a/helm/matita/tests/replace.ma
+++ b/helm/matita/tests/replace.ma
@@ -1,4 +1,4 @@
-set "baseuri" "cic:/test".
+set "baseuri" "cic:/matita/tests/replace/".
 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
 alias num (instance 0) = "natural number".
 alias symbol "eq" (instance 0) = "leibnitz's equality".
@@ -16,4 +16,9 @@ theorem t: \forall x:nat. x * (x + 0) = (0 + x) * (x + x * 0).
  reflexivity.
  reflexivity.
  auto.
-qed.
\ No newline at end of file
+qed.
+
+(* This test tests "replace in match t" where t contains some metavariables *)
+theorem t2: 2 + (3 * 4) = (5 + 5) + 2 * 2.
+ replace in match 5+? with 6 + 4; [reflexivity | reflexivity].
+qed.