]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_aaa.ma
milestone update in basic_2, update in ground and static_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / lpxs_aaa.ma
index 3ec2414687e26ae7bf04fd34a20e189b57a123bd..a8f73eac90af7cde4e93c599b523b9b20d370c05 100644 (file)
 include "basic_2/rt_transition/lpx_aaa.ma".
 include "basic_2/rt_computation/lpxs_lpx.ma".
 
-(* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************)
+(* EXTENDED PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS *************)
 
 (* Properties with atomic arity assignment for terms ************************)
 
-lemma lpxs_aaa_conf (h) (G) (T): Conf3 … (λL. aaa G L T) (lpxs h G).
-#h #G #T #A #L1 #HT #L2 #H
+lemma lpxs_aaa_conf (G) (T):
+      Conf3 … (λL. aaa G L T) (lpxs G).
+#G #T #A #L1 #HT #L2 #H
 lapply (lex_inv_CTC … H) -H //
 @TC_Conf3 [4: // |*: /2 width=4 by lpx_aaa_conf/ ]
 qed-.