summaryrefslogtreecommitdiff
path: root/backend/CSEproof.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/CSEproof.v')
-rw-r--r--backend/CSEproof.v4
1 files changed, 1 insertions, 3 deletions
diff --git a/backend/CSEproof.v b/backend/CSEproof.v
index e0dbce8..478b6f0 100644
--- a/backend/CSEproof.v
+++ b/backend/CSEproof.v
@@ -320,7 +320,7 @@ Proof.
unfold analyze; intros.
eapply Solver.fixpoint_invariant with (P := wf_numbering); eauto.
exact wf_empty_numbering.
- exact (wf_transfer f).
+ intros. eapply wf_transfer; eauto.
Qed.
(** ** Properties of satisfiability of numberings *)
@@ -818,8 +818,6 @@ Proof.
intros.
assert (Numbering.ge approx!!pc' (transfer f pc approx!!pc)).
eapply Solver.fixpoint_solution; eauto.
- unfold successors_list, successors. rewrite PTree.gmap1.
- rewrite H0. auto.
apply H3. auto.
Qed.