fact: Record fmodel := FModel { fstate :> finType; ftrans : var -> rel fstate; flabel : var -> pred fstate }.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)