]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/gr_isf_tl.ma
update in ground
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / gr_isf_tl.ma
index da0992aa002c16292db2b9fe20294fc739710a13..5268136d7fe34e1c0a08d0360f9dc146bcac0aae 100644 (file)
 include "ground/relocation/gr_tl.ma".
 include "ground/relocation/gr_isf.ma".
 
-(* FINITE COLENGTH CONDITION FOR GENERIC RELOCATION MAPS *)
+(* FINITE COLENGTH CONDITION FOR GENERIC RELOCATION MAPS ********************)
 
-(* Properties with tail *****************************************************)
+(* Constructions with gr_tl *************************************************)
 
 (*** isfin_tl *)
-lemma gr_isf_tl (f): ð\9d\90\85â\9dªfâ\9d« â\86\92 ð\9d\90\85â\9dªâ«±f❫.
+lemma gr_isf_tl (f): ð\9d\90\85â\9dªfâ\9d« â\86\92 ð\9d\90\85â\9dªâ«°f❫.
 #f elim (gr_map_split_tl f) * #Hf
 /3 width=3 by gr_isf_inv_push, gr_isf_inv_next/
 qed.
 
-(* Inversion lemmas with tail ***********************************************)
+(* Inversions with gr_tl ****************************************************)
 
 (*** isfin_inv_tl *)
-lemma gr_isf_inv_tl (g): ð\9d\90\85â\9dªâ«±g❫ → 𝐅❪g❫.
+lemma gr_isf_inv_tl (g): ð\9d\90\85â\9dªâ«°g❫ → 𝐅❪g❫.
 #f elim (gr_map_split_tl f) * #Hf
 /2 width=1 by gr_isf_next, gr_isf_push/
 qed-.