michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(library/data/nat/div,tests/lean/run/ppbeta): make decidable for dvd transparent, name change in ppbeta

Browse source
This commit is contained in:
Jeremy Avigad 2014-12-26 16:44:43 -05:00
parent cecabbb401
commit 1eea75b6fc
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
library/data/nat/div.lean
View file

@ -311,7 +311,7 @@ dvd.elim H (
theorem dvd_iff_mod_eq_zero (x y : ℕ) : x | y ↔ y mod x = 0 := theorem dvd_iff_mod_eq_zero (x y : ℕ) : x | y ↔ y mod x = 0 :=
iff.intro mod_eq_zero_of_dvd dvd_of_mod_eq_zero iff.intro mod_eq_zero_of_dvd dvd_of_mod_eq_zero
theorem dvd.decidable_rel [instance] : decidable_rel dvd := definition dvd.decidable_rel [instance] : decidable_rel dvd :=
take m n, decidable_of_decidable_of_iff _ (!dvd_iff_mod_eq_zero⁻¹) take m n, decidable_of_decidable_of_iff _ (!dvd_iff_mod_eq_zero⁻¹)
theorem dvd_imp_div_mul_eq {x y : ℕ} (H : y | x) : x div y * y = x := theorem dvd_imp_div_mul_eq {x y : ℕ} (H : y | x) : x div y * y = x :=

2
tests/lean/run/ppbeta.lean
View file

@ -7,4 +7,4 @@ infix `<` := lt
infixl `+` := int.add infixl `+` := int.add
theorem lt_add_succ2 (a : int) (n : nat) : a < a + nat.succ n := theorem lt_add_succ2 (a : int) (n : nat) : a < a + nat.succ n :=
int.le_intro (show a + 1 + n = a + nat.succ n, from sorry) int.le.intro (show a + 1 + n = a + nat.succ n, from sorry)