proposition: Lemma dmodelP (M : dmodel) : ldec (@eval (ts_of_dmodel M)).
proof: Proof. move => s w. case: (boolP (evald s w)) => /evaldP; tauto. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.K(K_def demo gentzen)