We want to prove
( M
N
: NzNat
)
gcd(M + M , N + N) > (s 0) .
We take the following steps:
-
We introduce the lemma
| |
( N
M
: Nat
)
(M + N) - N = M.
|
Click here to see its proof.
-
We use
induction on
M
and
N
to prove this goal.
For this, we use the following
induction
scheme:
to prove an assertion
P
on the sort(s)
NzNat NzNat
, we can do the following:
base case: prove
P(1 , 1)
.
induction case:
assume
P(m , n)
,
prove
P(m + n , n)
for
m
and
n
.
induction case:
assume
P(m , n)
,
prove
P(m , m + n)
for
m
and
n
.
-
Base case: prove
gcd(2 * 1 , 2 * 1) > 1
.
-
Induction case:
assume
gcd(m + m , n + n) > (s 0)
,
prove
gcd(2 * (m + n) , 2 * n) > 1
.
Induction case:
assume
gcd(2 * m , 2 * n) > 1
,
prove
gcd(2 * m , 2 * (m + n)) > 1
.
And thus the main goal is proved.
|