fact: Definition list_beq := fun (A : Type) (eq_A : A -> A -> bool) => fix list_eqrec (X Y : list A) : bool := match X with | nil => match Y with | nil => true | (_ :: _)%list => false end | (x :: x0)%list => match Y with | nil => false | (x1 :: x2)%list => (eq_A x x1 && list_eqrec x0 x2)%bool end end.
imports: Bool Int63 Psatz PArray BinNat BinPos ZArith SMT_classes_instances Misc State BVList