fact: Record cmodel := CModel { ts_of :> ts; modelP : stable (@eval ts_of) }.
imports: Relations Lia Setoid Morphisms mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype rewrite_inequality fset_tac)