Definition Cond : Cobham :=
Rec (Proj 3 0) (Proj 5 4) (Proj 5 3) (
Comp 4 Smash [
Comp 4 (Succ true) [Proj 4 1];
Comp 4 Smash [
Comp 4 (Succ true) [Proj 4 2];
Comp 4 (Succ true) [Proj 4 3]
]
]
).

Lemma Cond_correct : forall l,
Sem Cond l =
match hd nil l with
| nil => hd nil (tl l)
| true::_ => hd nil (tl (tl l))
| false::_ => hd nil (tl (tl (tl l)))
end.