fact: Definition C (T: SemType) (s: exp X) := exists t, s ▷ t /\ (active t -> T t).
imports: Morphisms Lia Undecidability.HOU(std.std) Undecidability.HOU.calculus(prelim terms syntax semantics confluence typing order)