module A201605.AltArtemov.Old.Common.Ty.Basic where

open import A201605.AltArtemov.Try2.Tm public


data Ty :   Set where
    :  {n}  Ty n
  _⊃_ :  {n}  Ty n  Ty n  Ty n
  _∧_ :  {n}  Ty n  Ty n  Ty n
  _∶_ :  {g n}  Tm g n  Ty n  Ty (suc n)

infixr 5 _⊃_
infixr 15 _∶_