proposition: Lemma hist_dsatH (M: fmodel) H s (w:M) : hist H s w -> dsatH w H.
proof: Proof. by case. Qed.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.Kstar(Kstar_def)