X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Ffpbq.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Ffpbq.ma;h=e875cac283b9cb0ece3b8c387ff4884132358d59;hb=adb9ba187619cea977d1d22971eba27eb437cd6a;hp=690e8ff3238c68381c1ae9269c18e9040f22623c;hpb=f677b4ef7fa20f1ab36c5ee59598865d5c1b719b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma index 690e8ff32..e875cac28 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predsubty_7.ma". -include "static_2/static/fdeq.ma". +include "static_2/static/feqx.ma". include "static_2/s_transition/fquq.ma". include "basic_2/rt_transition/lpr_lpx.ma". @@ -24,7 +24,7 @@ inductive fpbq (h) (G1) (L1) (T1): relation3 genv lenv term ≝ | fpbq_fquq: ∀G2,L2,T2. ⦃G1,L1,T1⦄ ⬂⸮ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2 | fpbq_cpx : ∀T2. ⦃G1,L1⦄ ⊢ T1 ⬈[h] T2 → fpbq h G1 L1 T1 G1 L1 T2 | fpbq_lpx : ∀L2. ⦃G1,L1⦄ ⊢ ⬈[h] L2 → fpbq h G1 L1 T1 G1 L2 T1 -| fpbq_fdeq: ∀G2,L2,T2. ⦃G1,L1,T1⦄ ≛ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2 +| fpbq_feqx: ∀G2,L2,T2. ⦃G1,L1,T1⦄ ≛ ⦃G2,L2,T2⦄ → fpbq h G1 L1 T1 G2 L2 T2 . interpretation