Module Connective <: DecTypeSig.
Definition t := connective.
Definition eqb (c1 c2: connective) :=
match c1, c2 with
| impp, impp
| andp, andp
| orp, orp
| falsep, falsep
| truep, truep
| negp, negp
| iffp, iffp
| sepcon, sepcon
| wand, wand
| emp, emp
| multi_imp, multi_imp
| iter_sepcon, iter_sepcon
| empty_context, empty_context => true
| _, _ => false
end.

Lemma eqb_spec: forall x y, Bool.reflect (x = y) (eqb x y).