fact: Fixpoint beq' (A: Type) (beqA: A -> A -> bool) (m1 m2: ptrie A): bool := match m1, m2 with | Empty, Empty => true | Leaf k1 v1, Leaf k2 v2 => elt_eq k1 k2 && beqA v1 v2 | Branch p1 brbit1 l1 r1, Branch p2 brbit2 l2 r2 => elt_eq p1 p2 && elt_eq brbit1 brbit2 && beq' beqA l1 l2 && beq' beqA r1 r2 | _, _ => false end.
imports: Lia Cdcl.Coqlib