fact: Definition eta (s: exp X) {Gamma A} (H: Gamma ⊢ s : A) := proj1_sig (compute_evaluation_step (termination_steps H)).
imports: Morphisms Setoid Undecidability.HOU(std.std) Undecidability.HOU.calculus(prelim terms syntax semantics confluence typing order normalisation)