Definition div'_e : BC :=
rec (zero_e 1 1)
(comp 2 2 cond nil
[comp 2 2 le_e [comp 2 0 mult_e [proj 2 0 0; proj 2 0 1] nil]
[proj 2 2 3]; proj 2 2 2; proj 2 2 0; proj 2 2 2])
(comp 2 2 cond nil
[comp 2 2 le_e [comp 2 0 mult_e [proj 2 0 0; proj 2 0 1] nil]
[proj 2 2 3]; proj 2 2 2; proj 2 2 0; proj 2 2 2]).

Lemma hd_cons l a l' :
l = a :: l' ->
bs2bool l = a.