let G be addGroup; :: thesis: for h being Element of G holds (ord h) * h = 0_ G
let h be Element of G; :: thesis: (ord h) * h = 0_ G
per cases ( h is being_of_order_0 or not h is being_of_order_0 ) ;
end;