Skip to content

Commit

Permalink
Adapt to coq/coq#18164
Browse files Browse the repository at this point in the history
  • Loading branch information
Villetaneuse authored and Lysxia committed Oct 21, 2023
1 parent eede8c5 commit 99fff87
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions tutorial/Utils_tutorial.v
Original file line number Diff line number Diff line change
Expand Up @@ -278,8 +278,8 @@ Section nat_Show.
a = b.
Proof.
intros.
rewrite (NPeano.Nat.div_mod a q); auto.
rewrite (NPeano.Nat.div_mod b q); auto.
rewrite (Nat.div_mod a q); auto.
rewrite (Nat.div_mod b q); auto.
Qed.

Lemma get_last_digit_inj: forall n m,
Expand All @@ -296,9 +296,9 @@ Section nat_Show.
subst.
exfalso.
destruct n8.
2: generalize (NPeano.Nat.mod_upper_bound n 10 (ltac:(auto))); intros EQ; rewrite Heq in EQ; lia.
2: generalize (Nat.mod_upper_bound n 10 (ltac:(auto))); intros EQ; rewrite Heq in EQ; lia.
destruct n9.
2: generalize (NPeano.Nat.mod_upper_bound m 10 (ltac:(auto))); intros EQ; rewrite Heq0 in EQ; lia.
2: generalize (Nat.mod_upper_bound m 10 (ltac:(auto))); intros EQ; rewrite Heq0 in EQ; lia.
exfalso; apply ineq,(mod_div_eq n m 10); lia.
Qed.

Expand Down

0 comments on commit 99fff87

Please sign in to comment.