fact: Fixpoint subst_formula (t : formula) (v v' : term) : formula := match t with | Top => Top | Bottom => Bottom | Maps x y f m => Maps (subst_term x v v') (subst_term y v v') (subst_term f v v') (subst_map_expr m v v') | Impl p q => Impl (subst_formula p v v') (subst_formula q v v') end.
imports: Coq.NArith.NArith Coq.FSets.FMaps Coq.micromega.Lia Category.Lib Category.Lib.FMapExt