fact: Fixpoint map_expr_size (t : map_expr) : nat := match t with | Empty => 1%nat | Add _ _ _ m => 1%nat + map_expr_size m end.
imports: Coq.NArith.NArith Coq.FSets.FMaps Coq.micromega.Lia Category.Lib Category.Lib.FMapExt