Module ConnectiveClass.
Definition t := connective_class.
Definition eqb (cc1 cc2: connective_class) :=
match cc1, cc2 with
| MinimumLanguage, MinimumLanguage => true
| PropositionalLanguage, PropositionalLanguage => true
| SepconLanguage, SepconLanguage => true
| WandLanguage, WandLanguage => true
| EmpLanguage, EmpLanguage => true
| IterSepconLanguage, IterSepconLanguage => true
| _, _ => false
end.

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