fact: Record ksSystem := KSSystem { ksort' :> kSystem; AG : ksort' -> ksort'; axAGEl s : mprv (AG s ---> s) ; axAGEr s : mprv (AG s ---> AX (AG s)) ; rAG_ind u s : mprv (u ---> AX u) -> mprv (u ---> s) -> mprv (u ---> AG s) }.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions