X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_uni_eq.ma;h=f705ca84b0868c296b866fed8f09c79b44a5904b;hb=873fb39bdd21aa14877bf5d50db26e3a050c6d43;hp=44e98910169f9070a3aa973fe2dcf6a15a908b9c;hpb=503500ff9a6d9cca363a42b5fe7f3f5de69239f9;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_uni_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_uni_eq.ma
index 44e989101..f705ca84b 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_uni_eq.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_uni_eq.ma
@@ -21,7 +21,7 @@ include "ground/relocation/pr_uni.ma".
 (* Inversions with pr_eq ****************************************************)
 
 (*** uni_inv_push_dx *)
-lemma pr_eq_inv_uni_push (n) (g):  𝐮❨n❩ ≡ ⫯g → ∧∧ 𝟎 = n & 𝐢 ≡ g.
+lemma pr_eq_inv_uni_push (n) (g):  𝐮❨n❩ ≐ ⫯g → ∧∧ 𝟎 = n & 𝐢 ≐ g.
 #n @(nat_ind_succ … n) -n 
 [ /3 width=5 by pr_eq_inv_push_bi, conj/
 | #n #_ #f <pr_uni_succ #H elim (pr_eq_inv_next_push … H) -H //
@@ -29,11 +29,11 @@ lemma pr_eq_inv_uni_push (n) (g):  𝐮❨n❩ ≡ ⫯g → ∧∧ 𝟎 = n & 
 qed-.
 
 (*** uni_inv_push_sn *)
-lemma pr_eq_inv_push_uni (n) (g): ⫯g ≡ 𝐮❨n❩ → ∧∧ 𝟎 = n & 𝐢 ≡ g.
+lemma pr_eq_inv_push_uni (n) (g): ⫯g ≐ 𝐮❨n❩ → ∧∧ 𝟎 = n & 𝐢 ≐ g.
 /3 width=1 by pr_eq_inv_uni_push, pr_eq_sym/ qed-.
 
 (*** uni_inv_next_dx *)
-lemma pr_eq_inv_uni_next (n) (g): 𝐮❨n❩ ≡ ↑g → ∧∧ 𝐮❨↓n❩ ≡ g & ↑↓n = n.
+lemma pr_eq_inv_uni_next (n) (g): 𝐮❨n❩ ≐ ↑g → ∧∧ 𝐮❨↓n❩ ≐ g & ↑↓n = n.
 #n @(nat_ind_succ … n) -n
 [ #g <pr_uni_zero <pr_id_unfold #H elim (pr_eq_inv_push_next … H) -H //
 | #n #_ #g <pr_uni_succ /3 width=5 by pr_eq_inv_next_bi, conj/
@@ -41,16 +41,16 @@ lemma pr_eq_inv_uni_next (n) (g): 𝐮❨n❩ ≡ ↑g → ∧∧ 𝐮❨↓n❩
 qed-.
 
 (*** uni_inv_next_sn *)
-lemma pr_eq_inv_next_uni (n) (g): ↑g ≡ 𝐮❨n❩ → ∧∧ 𝐮❨↓n❩ ≡ g & ↑↓n = n.
+lemma pr_eq_inv_next_uni (n) (g): ↑g ≐ 𝐮❨n❩ → ∧∧ 𝐮❨↓n❩ ≐ g & ↑↓n = n.
 /3 width=1 by pr_eq_inv_uni_next, pr_eq_sym/ qed-.
 
 (* Inversions with pr_id and pr_eq ******************************************)
 
 (*** uni_inv_id_dx *)
-lemma pr_eq_inv_uni_id (n): 𝐮❨n❩ ≡ 𝐢 → 𝟎 = n.
+lemma pr_eq_inv_uni_id (n): 𝐮❨n❩ ≐ 𝐢 → 𝟎 = n.
 #n <pr_id_unfold #H elim (pr_eq_inv_uni_push … H) -H //
 qed-.
 
 (*** uni_inv_id_sn *)
-lemma pr_eq_inv_id_uni (n):  𝐢 ≡ 𝐮❨n❩ → 𝟎 = n.
+lemma pr_eq_inv_id_uni (n):  𝐢 ≐ 𝐮❨n❩ → 𝟎 = n.
 /3 width=1 by pr_eq_inv_uni_id, pr_eq_sym/ qed-.