fact: Fixpoint evald (M : dmodel) s : pred M := match s with | fV p => dlabel p | fF => xpred0 | fImp s t => fun w => evald s w ==> evald t w | fAX s => fun w => [all v in dbound w, dtrans w v ==> evald s v] end.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.K(K_def demo gentzen)