definition is_o_reduction_of_is_reduction:
∀C:REL.∀R: Ω^C ⇒_1 Ω^C.is_reduction ? R → is_o_reduction ? (o_operator_of_operator ? R).
intros (C R i); apply i; qed.
definition is_o_reduction_of_is_reduction:
∀C:REL.∀R: Ω^C ⇒_1 Ω^C.is_reduction ? R → is_o_reduction ? (o_operator_of_operator ? R).
intros (C R i); apply i; qed.