From 0504acdaee98f28dfd08c5652b39c201c252d1be Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Thu, 14 Sep 2023 07:07:44 +0200
Subject: Update to Lean 4.0.0 and fix some broken proofs

---
 backends/lean/Base/Utils.lean | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'backends/lean/Base/Utils.lean')

diff --git a/backends/lean/Base/Utils.lean b/backends/lean/Base/Utils.lean
index 1f8f1455..e58198f4 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
-- 
cgit v1.2.3


From 743e8cb9d5366b879f53d7d0ba8adeb2f83ef72f Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Thu, 14 Sep 2023 08:17:15 +0200
Subject: Fix the hashmap proofs in Lean

---
 backends/lean/Base/Utils.lean | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'backends/lean/Base/Utils.lean')

diff --git a/backends/lean/Base/Utils.lean b/backends/lean/Base/Utils.lean
index e58198f4..5224e1c3 100644
--- a/backends/lean/Base/Utils.lean
+++ b/backends/lean/Base/Utils.lean
@@ -303,7 +303,7 @@ example (x : Bool) : Nat := by
 
 -- Attempt to apply a tactic
 def tryTac (tac : TacticM Unit) : TacticM Unit := do
-  let _ := tryTactic tac
+  let _ ← tryTactic tac
 
 -- Repeatedly apply a tactic
 partial def repeatTac (tac : TacticM Unit) : TacticM Unit := do
-- 
cgit v1.2.3