fact: Record kSystem := KSystem { psort :> pSystem; AX : psort -> psort; rNec s : mprv s -> mprv (AX s); axN s t: mprv (AX (s ---> t) ---> AX s ---> AX t) }.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions