Commit 6afa0332 authored by Ralf Jung's avatar Ralf Jung

make pair_core_id a new-unification-instance

parent 26d4f967
......@@ -1170,7 +1170,9 @@ Section prod.
CmraDiscrete A CmraDiscrete B CmraDiscrete prodR.
Proof. split. apply _. by intros ? []; split; apply cmra_discrete_valid. Qed.
Global Instance pair_core_id x y :
(* FIXME(Coq #6294): This is not an instance because we need it to use the new
unification. *)
Lemma pair_core_id x y :
CoreId x CoreId y CoreId (x,y).
Proof. by rewrite /CoreId prod_pcore_Some'. Qed.
......@@ -1189,6 +1191,9 @@ Section prod.
Proof. move=>? [??] [_ ?] [_ /=?]. eauto. Qed.
End prod.
(* Registering as [Hint Extern] with new unification. *)
Hint Extern 4 (CoreId _) => notypeclasses refine (pair_core_id _ _ _ _) : typeclass_instances.
Arguments prodR : clear implicits.
Section prod_unit.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment