Skip to content

Commit 4c0aeba

Browse files
committed
Remove a needless GeneralizeVar.GeneralizeVar
Maybe this is responsible for the performance issue???
1 parent 717fae6 commit 4c0aeba

File tree

2 files changed

+2
-10
lines changed

2 files changed

+2
-10
lines changed

src/AbstractInterpretation/AbstractInterpretation.v

+1-1
Original file line numberDiff line numberDiff line change
@@ -577,7 +577,7 @@ Module Compilers.
577577
{t} (e : Expr t)
578578
(bound : type.for_each_lhs_of_arrow ZRange.type.option.interp t)
579579
: Expr t
580-
:= partial.EvalWithBound relax_zrange assume_cast_truncates skip_annotations_under strip_preexisting_annotations (GeneralizeVar.GeneralizeVar (e _)) bound.
580+
:= partial.EvalWithBound relax_zrange assume_cast_truncates skip_annotations_under strip_preexisting_annotations e bound.
581581
Definition PartialEvaluateWithListInfoFromBounds
582582
{shiftr_avoid_uint1 : shiftr_avoid_uint1_opt}
583583
{t} (e : Expr t)

src/AbstractInterpretation/Proofs.v

+1-9
Original file line numberDiff line numberDiff line change
@@ -1507,7 +1507,6 @@ Module Compilers.
15071507
by (hnf; etransitivity; [ eassumption | symmetry; eassumption ]).
15081508
assert (arg2_Proper : Proper (type.and_for_each_lhs_of_arrow (@type.related base.type base.interp (fun _ => eq))) arg2)
15091509
by (hnf; etransitivity; [ symmetry; eassumption | eassumption ]).
1510-
rewrite <- (GeneralizeVar.Interp_gen1_GeneralizeVar E) by auto with wf.
15111510
eapply Interp_EvalWithBound; eauto with wf typeclass_instances.
15121511
Qed.
15131512

@@ -1530,14 +1529,7 @@ Module Compilers.
15301529
Proof.
15311530
cbv [PartialEvaluateWithBounds].
15321531
intros arg1 Harg11 Harg1.
1533-
rewrite <- Extract_GeneralizeVar; auto with wf typeclass_instances.
1534-
{ eapply @Interp_EvalWithBound; eauto with wf typeclass_instances. }
1535-
{ cbv [Proper] in *.
1536-
eapply type.and_for_each_lhs_of_arrow_Proper_impl_hetero1;
1537-
[ | eapply type.andb_bool_impl_and_for_each_lhs_of_arrow; [ | eassumption ] ];
1538-
[ | refine (fun t x y H => H) ];
1539-
cbv beta.
1540-
intros *; eapply ZRange.type.option.is_bounded_by_impl_eqv_refl. }
1532+
eapply @Interp_EvalWithBound; eauto with wf typeclass_instances.
15411533
Qed.
15421534

15431535
Lemma Interp_PartialEvaluateWithListInfoFromBounds

0 commit comments

Comments
 (0)