reserve m for Nat;
reserve P for Instruction-Sequence of SCM+FSA;

theorem
  for a,b,c being Int-Location holds a <> b implies
   MultBy(b,c) does not destroy  a
proof
  let a,b,c be Int-Location;
  assume
A1: a <> b;
  now
    let e be Int-Location;
    let l be Element of NAT;
    let f be FinSeq-Location;
A2: InsCode MultBy(b,c) = 4 by SCMFSA_2:21;
    hence a := e <> MultBy(b,c) by SCMFSA_2:18;
    thus AddTo(a,e) <> MultBy(b,c) by A2,SCMFSA_2:19;
    thus SubFrom(a,e) <> MultBy(b,c) by A2,SCMFSA_2:20;
    thus MultBy(a,e) <> MultBy(b,c) by A1,SF_MASTR:4;
    thus Divide(a,e) <> MultBy(b,c) & Divide(e,a) <> MultBy(b,c) by A2,
SCMFSA_2:22;
    thus a :=(f,e) <> MultBy(b,c) by A2,SCMFSA_2:26;
    thus a :=len f <> MultBy(b,c) by A2,SCMFSA_2:28;
  end;
  hence thesis;
end;
