(* Constructions with gr_tls ************************************************)
(*** istot_tls *)
-lemma gr_ist_tls (n) (f): ð\9d\90\93â\9dªfâ\9d« â\86\92 ð\9d\90\93â\9dªâ«±*[n]f❫.
+lemma gr_ist_tls (n) (f): ð\9d\90\93â\9dªfâ\9d« â\86\92 ð\9d\90\93â\9dªâ«°*[n]f❫.
#n @(nat_ind_succ … n) -n //
#n #IH #f #Hf <gr_tls_succ
/3 width=1 by gr_ist_tl/