File tree Expand file tree Collapse file tree 1 file changed +1
-8
lines changed
Expand file tree Collapse file tree 1 file changed +1
-8
lines changed Original file line number Diff line number Diff line change @@ -10,16 +10,9 @@ example : changeBase 16 2 = "10000" := by native_decide
1010example : changeBase 8 2 = "1000" := by native_decide
1111example : changeBase 7 2 = "111" := by native_decide
1212
13- namespace Nat
14-
15- theorem ofDigitChars_toDigits' {b n : Nat} (hb' : 1 < b) (hb : b ≤ 10 ) : ofDigitChars b (toDigits b n) 0 = n := by
16- sorry -- https://github.com/leanprover/lean4/pull/13098
17-
18- end Nat
19-
2013theorem ofDigitChars_changeBase {x : Nat} {base : Nat} (hb' : 1 < base) (hb : base ≤ 10 ) :
2114 Nat.ofDigitChars base (changeBase x base).toList 0 = x := by
22- simp [changeBase, Nat.ofDigitChars_toDigits' hb' hb]
15+ simp [changeBase, Nat.ofDigitChars_toDigits hb' hb]
2316
2417/-!
2518## Prompt
You can’t perform that action at this time.
0 commit comments