let k, m be Integer; :: thesis: ( k divides m iff k divides |.m.| )
per cases ( m >= 0 or m < 0 ) ;
end;