| author | paulson <lp15@cam.ac.uk> |
| Mon, 03 Feb 2014 00:22:48 +0000 | |
| changeset 55262 | 16724746ad89 |
| parent 45044 | 2fae15f8984d |
| permissions | -rw-r--r-- |
package Loop_Invariant is type Word32 is mod 2 ** 32; procedure Proc1 (A : in Natural; B : in Word32; C : out Word32); --# derives C from A, B; --# post Word32 (A) * B = C; procedure Proc2 (A : in Natural; B : in Word32; C : out Word32); --# derives C from A, B; --# post Word32 (A) * B = C; end Loop_Invariant;