Lift2 = Lift1 + default term arities "lift" :: (term)po rules inst_lift_po "((op <<)::['a lift,'a lift]=>bool) = less_lift" end