enrich
nat
with
sorts input;
output;
variables Inp : nat → input flexible;
inp : nat → input;
Outp : nat → output flexible;
outp : nat → output;
i : input;
o : output;
bv : bool;
end enrich