| false \Rightarrow
match m with
[ O \Rightarrow n
- | (S p) \Rightarrow gcd_aux (S p) n (S p) ]] \divides m
+ | (S p) \Rightarrow gcd_aux (S p) n (S p) ] ] \divides m
\land
match leb n m with
[ true \Rightarrow
| false \Rightarrow
match m with
[ O \Rightarrow n
- | (S p) \Rightarrow gcd_aux (S p) n (S p) ]] \divides n.
+ | (S p) \Rightarrow gcd_aux (S p) n (S p) ] ] \divides n.
apply leb_elim n m.
apply nat_case1 n.
simplify.intros.split.