fact: Record pSystem := PSystem { msort :> mSystem; Bot' : msort; axDN' s : mprv (Imp (Imp (Imp s Bot') Bot') s) }.
imports: mathcomp(all_ssreflect) CompDecModal.libs(edone base fset induced_sym) Setoid Morphisms Relation_Definitions