fact: Definition interp s := match s with (t,true) => t | (t,false) => fImp t fF end.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)