proposition: Theorem finite_soundness s : prv s -> forall (M:fmodel) (w : M), eval s w.
proof: Proof. move => H M w. exact: (@soundness _ H (cmodel_of_fmodel M) w). Qed.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)