update in staic_2 and basic_2

[helm.git] / matita / matita / contribs / lambdadelta / static_2 / static / feqx.ma

diff --git a/matita/matita/contribs/lambdadelta/static_2/static/feqx.ma b/matita/matita/contribs/lambdadelta/static_2/static/feqx.ma
index 2ec73d338dd37fd4b0a45d513c3f44d7673c5809..82867f62637bfd2626be4c8fda571ef685eca021 100644 (file)
--- a/matita/matita/contribs/lambdadelta/static_2/static/feqx.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/static/feqx.ma
@@ -24,26 +24,29 @@ inductive feqx (G) (L1) (T1): relation3 genv lenv term ≝
 .
 
 interpretation
-   "sort-irrelevant equivalence on referred entries (closure)"
-   'StarEqSn G1 L1 T1 G2 L2 T2 = (feqx G1 L1 T1 G2 L2 T2).
+  "sort-irrelevant equivalence on referred entries (closure)"
+  'StarEqSn G1 L1 T1 G2 L2 T2 = (feqx G1 L1 T1 G2 L2 T2).
 
 (* Basic_properties *********************************************************)
 
-lemma feqx_intro_dx (G): ∀L1,L2,T2. L1 ≛[T2] L2 →
-                         ∀T1. T1 ≛ T2 → ❪G,L1,T1❫ ≛ ❪G,L2,T2❫.
+lemma feqx_intro_dx (G):
+      ∀L1,L2,T2. L1 ≛[T2] L2 →
+      ∀T1. T1 ≛ T2 → ❪G,L1,T1❫ ≛ ❪G,L2,T2❫.
 /3 width=3 by feqx_intro_sn, teqx_reqx_div/ qed.
 
 (* Basic inversion lemmas ***************************************************)
 
-lemma feqx_inv_gen_sn: ∀G1,G2,L1,L2,T1,T2. ❪G1,L1,T1❫ ≛ ❪G2,L2,T2❫ →
-                       ∧∧ G1 = G2 & L1 ≛[T1] L2 & T1 ≛ T2.
+lemma feqx_inv_gen_sn:
+      ∀G1,G2,L1,L2,T1,T2. ❪G1,L1,T1❫ ≛ ❪G2,L2,T2❫ →
+      ∧∧ G1 = G2 & L1 ≛[T1] L2 & T1 ≛ T2.
 #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 /2 width=1 by and3_intro/
 qed-.
 
-lemma feqx_inv_gen_dx: ∀G1,G2,L1,L2,T1,T2. ❪G1,L1,T1❫ ≛ ❪G2,L2,T2❫ →
-                       ∧∧ G1 = G2 & L1 ≛[T2] L2 & T1 ≛ T2.
+lemma feqx_inv_gen_dx:
+      ∀G1,G2,L1,L2,T1,T2. ❪G1,L1,T1❫ ≛ ❪G2,L2,T2❫ →
+      ∧∧ G1 = G2 & L1 ≛[T2] L2 & T1 ≛ T2.
 #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2
-/3 width=3 by teqx_reqx_conf, and3_intro/
+/3 width=3 by teqx_reqx_conf_sn, and3_intro/
 qed-.
 
 (* Basic_2A1: removed theorems 6: