nat  : Type
PTm(VarPTm) : Type
Tm(VarTm) : Type
PTag : Type
TTag : Type
bool : Type

PL : PTag
PR : PTag
TPi : TTag
TSig : TTag

PAbs : (bind PTm in PTm) -> PTm
PApp : PTm -> PTm -> PTm
PPair : PTm -> PTm -> PTm
PProj : PTag -> PTm -> PTm
PConst : nat -> PTm

Abs : Tm -> (bind Tm in Tm) -> Tm
App : Tm -> Tm -> Tm
Pair : Tm -> Tm -> Tm
Proj : PTag -> Tm -> Tm
TBind : TTag -> Tm -> (bind Tm in Tm) -> Tm
Univ : nat -> Tm
BVal : bool -> Tm
Bool : Tm
If : Tm -> Tm -> Tm -> Tm