proposition: Lemma rNormS s t : mprv (s ---> t) -> mprv (AG s ---> AG t).
proof: Proof. move/rNecS. apply: rMP. exact: axAGN. Qed.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions