matita/matita/contribs/lambdadelta/basic_2/examples/ex_sta_ldec.ma

   1 include "basic_2/unfold/lstas.ma".
   2
   3 (* EXAMPLES *****************************************************************)
   4
   5 (* Static type assignment (iterated vs primitive): the declared variable ****)
   6
   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-.