fact: Fixpoint eqb (A B: type) : bool := match A, B with | Tindex i, Tindex j => N.eqb i j | TZ, TZ => true | Tbool, Tbool => true | Tpositive, Tpositive => true | TBV n, TBV m => N.eqb n m | TFArray k1 e1, TFArray k2 e2 => eqb k1 k2 && eqb e1 e2 | _,_ => false end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList