fact: Definition cmodel_of_fmodel (M : fmodel) := CModel (@fin_modelP M).
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)