module DictMeta where

-- import Term.Term

  data  ( φ : : * - > * ) ξ = DictMeta
--   { metaAnnot :: φ (X_Annot ξ)
    , metaApp    : : φ ( X_App    ξ )
    , metaHole   : : φ ( X_Hole   ξ )
    , metaLam    : : φ ( X_Lam    ξ )
    , metaLet    : : φ ( X_Let    ξ )
--   , metaPi    :: φ (X_Pi    ξ)
    , metaType   : : φ ( X_Type   ξ )
    , metaVar    : : φ ( X_Var    ξ )
--   }

  dictMeta ' : :  ( ( ~ ) t ) ξ = > φ t - > DictMeta φ ξ
-- dictMeta' t = DictMeta t t t t t t t t

 import Term.Term
   { metaAnnot :: φ (X_Annot ξ)
   , metaPi    :: φ (X_Pi    ξ)
   }
 dictMeta' t = DictMeta t t t t t t t t
module DictMeta where


  data  ( φ : : * - > * ) ξ = DictMeta
    , metaApp    : : φ ( X_App    ξ )
    , metaHole   : : φ ( X_Hole   ξ )
    , metaLam    : : φ ( X_Lam    ξ )
    , metaLet    : : φ ( X_Let    ξ )
    , metaType   : : φ ( X_Type   ξ )
    , metaVar    : : φ ( X_Var    ξ )

  dictMeta ' : :  ( ( ~ ) t ) ξ = > φ t - > DictMeta φ ξ
