Generics.BiGUL
data BiGUL s v
data CaseBranch s v
data Pat a env con
data Var a
data Direction env a
data Expr env a