Set Implicit Arguments.
Set Strict Implicit.
Definition ascii_dec (l r : Ascii.ascii) : bool :=
match l , r with
| Ascii.Ascii l1 l2 l3 l4 l5 l6 l7 l8 ,
Ascii.Ascii r1 r2 r3 r4 r5 r6 r7 r8 =>
if Bool.eqb l1 r1 then
if Bool.eqb l2 r2 then
if Bool.eqb l3 r3 then
if Bool.eqb l4 r4 then
if Bool.eqb l5 r5 then
if Bool.eqb l6 r6 then
if Bool.eqb l7 r7 then
if Bool.eqb l8 r8 then true
else false
else false
else false
else false
else false
else false
else false
else false
end.

Theorem ascii_dec_sound : forall l r,
ascii_dec l r = true <-> l = r.