fact: Definition modus_output_Border (a:term) (u: order term) : list term := if (fits_impl_pattern a) then let a1 := impl_first a in let a2 := impl_second a in let b:= unification_list a1 u in modus_output_Blist a1 a2 b else nil term.