X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Fmodels%2Fveq.ma;h=044866007346ddad0bc03a5d052d8e3aa381b316;hb=8d8863982ca95225551e9659ed431db046c34e81;hp=4d3d16c1e2ca2be618b74b76c9cca1991c93d48a;hpb=cc600ed1e115d5566947288d532a1e89d989227f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma b/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma index 4d3d16c1e..044866007 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/veq.ma @@ -79,11 +79,11 @@ 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/