fact: Definition link (p1 p2 : raw_package) : raw_package := @mapm _ typed_raw_function _ (λ '(So ; To ; f), (So ; To ; λ x, code_link (f x) p2)) p1.
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)