X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Fmodels%2Fdeq.ma;h=849ad9dd43ef0e834c3846791737526bafdae80b;hp=5d0f2d324ef315cfaa1c3259e074bf5da94a3edc;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/deq.ma b/matita/matita/contribs/lambdadelta/apps_2/models/deq.ma index 5d0f2d324..849ad9dd4 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/deq.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/deq.ma @@ -19,7 +19,7 @@ include "static_2/syntax/genv.ma". (* DENOTATIONAL EQUIVALENCE ************************************************) definition deq (M): relation4 genv lenv term term ≝ - λG,L,T1,T2. ∀gv,lv. lv ϵ ⟦L⟧[gv] → ⟦T1⟧[gv, lv] ≗{M} ⟦T2⟧[gv, lv]. + λG,L,T1,T2. ∀gv,lv. lv ϵ ⟦L⟧[gv] → ⟦T1⟧[gv,lv] ≗{M} ⟦T2⟧[gv,lv]. interpretation "denotational equivalence (model)" 'RingEq M G L T1 T2 = (deq M G L T1 T2).