diff options
author | Son Ho | 2023-10-16 11:20:57 +0200 |
---|---|---|
committer | Son Ho | 2023-10-16 11:20:57 +0200 |
commit | 2ec2e374302c772ff2c6a26e39451b4e49e13a16 (patch) | |
tree | da523de2f105f28c995ef8da01b320074b63f366 /backends/lean/Base/Utils.lean | |
parent | cbb2d05e0db6bedf9d6844f29ee25b95429b994c (diff) | |
parent | 40ed38216499ea1bf58b8acbcd05b2cd97329830 (diff) |
Merge branch 'main' into son_traits and fix some issues
Diffstat (limited to '')
-rw-r--r-- | backends/lean/Base/Utils.lean | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/backends/lean/Base/Utils.lean b/backends/lean/Base/Utils.lean index 1f8f1455..5224e1c3 100644 --- a/backends/lean/Base/Utils.lean +++ b/backends/lean/Base/Utils.lean @@ -301,6 +301,10 @@ example : Nat := by example (x : Bool) : Nat := by cases x <;> custom_let x := 3 <;> apply x +-- Attempt to apply a tactic +def tryTac (tac : TacticM Unit) : TacticM Unit := do + let _ ← tryTactic tac + -- Repeatedly apply a tactic partial def repeatTac (tac : TacticM Unit) : TacticM Unit := do try |