fact: Definition active (s: exp X) := match s with lambda s => True | _ => False end.
imports: Morphisms Lia Undecidability.HOU(std.std) Undecidability.HOU.calculus(prelim terms syntax semantics confluence typing order)