fact: Fixpoint remove' (A: Type) (i: elt) (t: ptrie A) := match t with | Empty => Empty | Leaf k v => if elt_eqb k i then Empty else t | Branch p m l r => if Key.match_prefix i p m then if Key.zerobit i m then branch p m (remove' i l) r else branch p m l (remove' i r) else t end.
imports: Lia Cdcl.Coqlib