fact: Fixpoint map1' {A B: Type} (f: A -> B) (m: ptrie A): ptrie B := match m with | Empty => Empty | Leaf k v => Leaf k (f v) | Branch p m l r => Branch p m (map1' f l) (map1' f r) end.
imports: List Bool ZArith Lia