--> I) Base case
open INV
  red inv100(init) .
close

--> II) Inductive cese
open ISTEP
  red istep1 .
close