
theorem Th7:
  for t being Terminal of SCM-AE, n being Element of NAT holds
  SCM-Compile(root-tree t, n) = <% dl.n:=@t %>
proof
  let t be Terminal of SCM-AE, n be Element of NAT;
  consider g being sequence of  (the InstructionsF of SCM)^omega such
  that
A1: g = SCM-Compile.root-tree t and
A2: for n being Nat holds g.n = <%dl.n:=@t%> by Def11;
  thus thesis by A1,A2;
end;
