X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Flsubsx_lsubsx.ma;h=82038855e7d57fa1a93d5e4823642d2e9ff643c7;hp=0a06062e63f8f5cd3b2909a818cbd9ae11c2fe8c;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lsubsx_lsubsx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lsubsx_lsubsx.ma index 0a06062e6..82038855e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lsubsx_lsubsx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lsubsx_lsubsx.ma @@ -18,8 +18,8 @@ include "basic_2/rt_computation/lsubsx.ma". (* Main properties **********************************************************) -theorem lsubsx_fix: ∀h,f,G,L1,L. G ⊢ L1 ⊆ⓧ[h, f] L → - ∀L2. G ⊢ L ⊆ⓧ[h, f] L2 → L = L2. +theorem lsubsx_fix: ∀h,f,G,L1,L. G ⊢ L1 ⊆ⓧ[h,f] L → + ∀L2. G ⊢ L ⊆ⓧ[h,f] L2 → L = L2. #h #f #G #L1 #L #H elim H -f -L1 -L [ #f #L2 #H >(lsubsx_inv_atom_sn … H) -L2 //