divide_by_two(n) == CHOOSE k \in Nat: n=2*k
EXTENDS Integers, TLAPS, FiniteSets
divide_by_two(n) == CHOOSE k \in Nat: n=2*k
CONSTANTS N
VARIABLES x
Init == x = divide_by_two(N)
PositiveInvariant == x >= 0
ASSUME NumberAssumption == N \in {2,4,6,8,10}
THEOREM PositiveDivisionProperty == Init => PositiveInvariant <1> SUFFICES ASSUME Init PROVE PositiveInvariant OBVIOUS <1> QED BY NumberAssumption DEF Init, PositiveInvariant, divide_by_two
ASSUME NumberAssumption == N = 10