proposition: Lemma domm_trimmed : ∀ E p, trimmed E p → fsubset (domm p) (idents E).
proof: Proof. intros E p h. unfold trimmed in h. rewrite <- h. apply domm_trim. Qed.
imports: Coq(Utf8) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) mathcomp(ssreflect eqtype choice seq ssrfun ssrbool ssrnat) extructures(ord fset fmap) Mon(SPropBase) Crypt(Prelude Axioms ChoiceAsOrd StateTransformingLaxMorph choice_type pkg_core_definition RulesStateProb) Equations(Equations)