fact: Definition body s := match s with fAX t^+ => t^+ | fAX t^- => t^- | _ => s end.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)