proposition: Lemma reflect_top_eqb : forall o1 o2, reflect (o1 = o2) (top_eqb o1 o2).
proof: Proof. intros [ I1 E1 ] [ I2 E2 ]. simpl. preflect (Typ.reflect_eqb I1 I2). preflect (Typ.reflect_eqb E1 E2). constructor;subst;trivial. Qed.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList