X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ffr2_minus.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ffr2_minus.ma;h=1e54b3846a32c0a024042f100960cfa4e6331247;hb=291fe1d3b56faf91d07099f43f3ebde2988649e1;hp=d083a5df87e3f873ba62f75b3d5f058a60857dc9;hpb=b5507c449ba38a76666a35664f9cf4e1953ad8ec;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_minus.ma b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_minus.ma
index d083a5df8..1e54b3846 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_minus.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_minus.ma
@@ -28,10 +28,10 @@ inductive fr2_minus: nat → relation fr2_map ≝
   fr2_minus i (𝐞) (𝐞)
 (*** minuss_lt *)
 | fr2_minus_lt (f1) (f2) (d) (h) (i):
-  i < d → fr2_minus i f1 f2 → fr2_minus i (❨d,h❩;f1) (❨d-i,h❩;f2)
+  i < d → fr2_minus i f1 f2 → fr2_minus i (❨d,h❩◗f1) (❨d-i,h❩◗f2)
 (*** minuss_ge *)
 | fr2_minus_ge (f1) (f2) (d) (h) (i):
-  d ≤ i → fr2_minus (h+i) f1 f2 → fr2_minus i (❨d,h❩;f1) f2
+  d ≤ i → fr2_minus (h+i) f1 f2 → fr2_minus i (❨d,h❩◗f1) f2
 .
 
 interpretation
@@ -53,10 +53,10 @@ qed-.
 
 (*** minuss_inv_cons1 *)
 lemma fr2_minus_inv_lcons_sn (f1) (f2) (d) (h) (i):
-      ❨d, h❩;f1 ▭ i ≘ f2 →
+      ❨d, h❩◗f1 ▭ i ≘ f2 →
       ∨∨ ∧∧ d ≤ i & f1 ▭ h+i ≘ f2
-       | ∃∃f. i < d & f1 ▭ i ≘ f & f2 = ❨d-i,h❩;f.
-#g1 #f2 #d #h #i @(insert_eq_1 … (❨d,h❩;g1))
+       | ∃∃f. i < d & f1 ▭ i ≘ f & f2 = ❨d-i,h❩◗f.
+#g1 #f2 #d #h #i @(insert_eq_1 … (❨d,h❩◗g1))
 #f1 * -f1 -f2 -i
 [ #i #H destruct
 | #f1 #f #d1 #h1 #i1 #Hid1 #Hf #H destruct /3 width=3 by ex3_intro, or_intror/
@@ -66,7 +66,7 @@ qed-.
 
 (*** minuss_inv_cons1_ge *)
 lemma fr2_minus_inv_lcons_sn_ge (f1) (f2) (d) (h) (i):
-      ❨d, h❩;f1 ▭ i ≘ f2 → d ≤ i → f1 ▭ h+i ≘ f2.
+      ❨d, h❩◗f1 ▭ i ≘ f2 → d ≤ i → f1 ▭ h+i ≘ f2.
 #f1 #f2 #d #h #i #H
 elim (fr2_minus_inv_lcons_sn … H) -H * // #f #Hid #_ #_ #Hdi
 elim (nlt_ge_false … Hid Hdi)
@@ -74,8 +74,8 @@ qed-.
 
 (*** minuss_inv_cons1_lt *)
 lemma fr2_minus_inv_lcons_sn_lt (f1) (f2) (d) (h) (i):
-      ❨d, h❩;f1 ▭ i ≘ f2 → i < d →
-      ∃∃f. f1 ▭ i ≘ f & f2 = ❨d-i,h❩;f.
+      ❨d, h❩◗f1 ▭ i ≘ f2 → i < d →
+      ∃∃f. f1 ▭ i ≘ f & f2 = ❨d-i,h❩◗f.
 #f1 #f2 #d #h #i #H elim (fr2_minus_inv_lcons_sn … H) -H *
 [ #Hdi #_ #Hid elim (nlt_ge_false … Hid Hdi)
 | /2 width=3 by ex2_intro/