1 include "basic_2/unfold/lstas.ma".
3 (* EXAMPLES *****************************************************************)
5 (* Static type assignment (iterated vs primitive): the declared variable ****)
7 (* basic_1: we have "L.ⓛⓝ⋆k1.⋆k2⦄ ⊢ #0 • ⓝ⋆k1.⋆k2". *)
8 theorem sta_ldec: ∀h,G,L,k1,k2. ⦃G, L.ⓛⓝ⋆k1.⋆k2⦄ ⊢ #0 •*[h, 1] ⋆k2.
9 /3 width=6 by lstas_sort, lstas_succ, lstas_cast, drop_pair/ qed-.