proposition: Lemma map_bool_of_ptrie_correct : forall {A:Type} (f: A -> bool) m i, bool_of_ptrie f m i = bool_of_ptrie_bool (map_bool_of_ptrie f m) i.
proof: Proof. unfold bool_of_ptrie_bool, bool_of_ptrie. intros. unfold map_bool_of_ptrie. rewrite IntMap.gmap1'. destruct (IntMap.get' i m); reflexivity. Qed.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause