λδ-2B is released

[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / models / veq.ma

diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma b/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma
index a351e2003e38fa3a2bb3c2c5d6b68b76c63436b7..044866007346ddad0bc03a5d052d8e3aa381b316 100644 (file)
--- a/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma
@@ -1,3 +1,4 @@
+
 (**************************************************************************)
 (*       ___                                                              *)
 (*      ||M||                                                             *)
@@ -78,16 +79,16 @@ elim (lt_or_eq_or_gt j i) #Hij destruct
 ]
 qed-.
 
-(* Properies with term interpretation ***************************************) 
+(* Properies with term interpretation ***************************************)
 
 lemma ti_comp (M): is_model M →
                    ∀T,gv1,gv2. gv1 ≗ gv2 → ∀lv1,lv2. lv1 ≗ lv2 →
-                   ⟦T⟧[gv1, lv1] ≗{M} ⟦T⟧[gv2, lv2].
+                   ⟦T⟧[gv1,lv1] ≗{M} ⟦T⟧[gv2,lv2].
 #M #HM #T elim T -T * [||| #p * | * ]
 [ /4 width=5 by seq_trans, seq_sym, ms/
 | /4 width=5 by seq_sym, ml, mq/
 | /4 width=3 by seq_trans, seq_sym, mg/
-| /5 width=5 by vpush_comp, seq_sym, md, mq/
+| /6 width=5 by vpush_comp, seq_sym, md, mc, mq/
 | /5 width=1 by vpush_comp, mi, mr/
 | /4 width=5 by seq_sym, ma, mp, mq/
 | /4 width=5 by seq_sym, me, mq/