Skip to content

Commit

Permalink
Merge pull request #1048 from lean-ja/Seasawher/issue1047
Browse files Browse the repository at this point in the history
`sorry` の舞台裏を説明する
  • Loading branch information
Seasawher authored Nov 4, 2024
2 parents 2829069 + 631d503 commit d2253ab
Showing 1 changed file with 15 additions and 0 deletions.
15 changes: 15 additions & 0 deletions LeanByExample/Reference/Tactic/Sorry.lean
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
/- # sorry
証明の細部を埋める前にコンパイルが通るようにしたいとき、証明で埋めるべき箇所に `sorry` と書くとコンパイルが通るようになります。ただし、`sorry` を使用しているという旨の警告が出ます。 -/
import Lean --#

-- Fermat の最終定理
def FermatLastTheorem :=
Expand All @@ -9,3 +10,17 @@ def FermatLastTheorem :=
#guard_msgs (drop warning) in --#
theorem flt : FermatLastTheorem :=
sorry

/- ## 舞台裏
`Lean.Elab.admitGoal` を使用することで `sorry` と同様のタクティクを作ることができます。
-/

open Lean Elab Tactic

elab "my_sorry" : tactic => withMainContext do
let goal ← getMainGoal
admitGoal goal

#guard_msgs (drop warning) in --#
theorem flt' : FermatLastTheorem := by
my_sorry

0 comments on commit d2253ab

Please sign in to comment.