Adapt w.r.t. coq/coq#18909. (#108)

mit-plv · Apr 9, 2024 · 9aaab98 · 9aaab98
1 parent ab93950
commit 9aaab98
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Common/Frame.v b/src/Common/Frame.v
@@ -369,7 +369,7 @@ Module PO.
                                         -> morph leB eqB leC eqC g -> morph leA eqA leC eqC (fun x => g (f x)).
   Proof.
     intros. destruct H, H0. constructor; intros.
-    - apply (PreO.morph_compose (leB := leB)); eauto using PreO. apply PreO.
+    - apply (PreO.morph_compose (leB := leB)); pose @PreO; eauto.
     - solve_proper.
   Qed.
 
@@ -453,7 +453,7 @@ Module PO.
     - unfold pointwise_op. split; simpl in *; intros.
       rewrite <- H0. rewrite <- H. apply H1.
       rewrite H0. rewrite H. apply H1.
-    - unfold pointwise_op. eauto using le_antisym.
+    - unfold pointwise_op. intros; eapply le_antisym; eauto.
   Qed.
 
   Definition morph_pointwise {A B C} `{tC : t C leC eqC} (f : B -> A)