From 78367ef21c147b26040e0f6062a907fceab1f390 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Mon, 11 Dec 2023 18:34:10 +0100
Subject: Start working on higher-order examples for Diverge

---
 backends/lean/Base/Progress/Base.lean | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/backends/lean/Base/Progress/Base.lean b/backends/lean/Base/Progress/Base.lean
index fd80db8c..0ad16ab6 100644
--- a/backends/lean/Base/Progress/Base.lean
+++ b/backends/lean/Base/Progress/Base.lean
@@ -3,8 +3,6 @@ import Std.Lean.HashSet
 import Base.Utils
 import Base.Primitives.Base
 import Base.Extensions
-import Lean.Meta.DiscrTree
-import Lean.Meta.Tactic.Simp
 
 namespace Progress
 
@@ -101,7 +99,7 @@ section Methods
     -- Check if some existentially quantified variables
     let _ := do
       -- Collect all the free variables in the arguments
-      let allArgsFVars := ← args.foldlM (fun hs arg => getFVarIds arg hs) HashSet.empty
+      let allArgsFVars ← args.foldlM (fun hs arg => getFVarIds arg hs) HashSet.empty
       -- Check if they intersect the fvars we introduced for the existentially quantified variables
       let evarsSet : HashSet FVarId := HashSet.ofArray (evars.map (fun (x : Expr) => x.fvarId!))
       let filtArgsFVars := allArgsFVars.toArray.filter (fun var => evarsSet.contains var)
@@ -134,7 +132,7 @@ structure PSpecAttr where
   ext  : DiscrTreeExtension Name true
   deriving Inhabited
 
-/- The persistent map from function to pspec theorems. -/
+/- The persistent map from expressions to pspec theorems. -/
 initialize pspecAttr : PSpecAttr ← do
   let ext ← mkDiscrTreeExtention `pspecMap true
   let attrImpl : AttributeImpl := {
-- 
cgit v1.2.3

