Skip to content

Commit

Permalink
Temporarily commenting out code that seems to worsen Duper's performance
Browse files Browse the repository at this point in the history
  • Loading branch information
JOSHCLUNE committed Oct 14, 2024
1 parent bc731f0 commit 6cd81c9
Showing 1 changed file with 11 additions and 0 deletions.
11 changes: 11 additions & 0 deletions Auto/Translation/Monomorphization.lean
Original file line number Diff line number Diff line change
Expand Up @@ -436,12 +436,23 @@ where
return (← leadingForallQuasiMonomorphicAux fvars ty) &&
(← leadingForallQuasiMonomorphicAux (fvars.push xid) bodyi)
else
/-
**TODO** Discuss the purpose of this code with Yicheng and determine whether it should
be included. Notably, including this code causes the following simple example to fail:
```
def even_int_fun (f : Int → Int) := ∀ x, f (-x) = f x
example (f : Int → Int) (hf : ∀ x, f (-x) = f x) : even_int_fun f := by -- The goal is the same as hf
duper [hf, even_int_fun] {preprocessing := full}
```
let hol : Bool :=
match ty with
| .forallE _ _ body _ => !body.hasLooseBVar 0
| _ => false
if hol && (← getMode) == .hol then
return false
-/
let fvarSet := HashSet.empty.insertMany fvars
if ty.hasAnyFVar fvarSet.contains then
return false
Expand Down

0 comments on commit 6cd81c9

Please sign in to comment.