fact: Record mSystem := MSystem { T :> choiceType; mprv : T -> Prop; Imp : T -> T -> T; rMP' s t : mprv (Imp s t) -> mprv s -> mprv t; axK' s t : mprv (Imp s (Imp t s)); axS' s t u : mprv (Imp (Imp u (Imp s t)) (Imp (Imp u s) (Imp u t))) }.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions