File tree 2 files changed +2
-10
lines changed
src/AbstractInterpretation
2 files changed +2
-10
lines changed Original file line number Diff line number Diff line change @@ -577,7 +577,7 @@ Module Compilers.
577
577
{t} (e : Expr t)
578
578
(bound : type.for_each_lhs_of_arrow ZRange.type.option.interp t)
579
579
: 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.
581
581
Definition PartialEvaluateWithListInfoFromBounds
582
582
{shiftr_avoid_uint1 : shiftr_avoid_uint1_opt}
583
583
{t} (e : Expr t)
Original file line number Diff line number Diff line change @@ -1507,7 +1507,6 @@ Module Compilers.
1507
1507
by (hnf; etransitivity; [ eassumption | symmetry; eassumption ]).
1508
1508
assert (arg2_Proper : Proper (type.and_for_each_lhs_of_arrow (@type.related base.type base.interp (fun _ => eq))) arg2)
1509
1509
by (hnf; etransitivity; [ symmetry; eassumption | eassumption ]).
1510
- rewrite <- (GeneralizeVar.Interp_gen1_GeneralizeVar E) by auto with wf.
1511
1510
eapply Interp_EvalWithBound; eauto with wf typeclass_instances.
1512
1511
Qed .
1513
1512
@@ -1530,14 +1529,7 @@ Module Compilers.
1530
1529
Proof .
1531
1530
cbv [PartialEvaluateWithBounds].
1532
1531
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.
1541
1533
Qed .
1542
1534
1543
1535
Lemma Interp_PartialEvaluateWithListInfoFromBounds
You can’t perform that action at this time.
0 commit comments