Thms bool 1 Doc

band Def pq == if p q else false fi

Thm* p,q:. (pq)

bool Def == Unit+Unit

Thm* Type

function_primDef x:AB(x) == PRIMITIVE {Total functions from A: x.b(x) such that b(x) B(x) for x A }

bfalse Def false ==

Thm* false

ifthenelse Def if b t else f fi == dec(b ; t; f)

Thm* b:, A:Type, p,q:A. if b p else q fi A