From 327ba441744ee0f14518fd1054ae74e51441f763 Mon Sep 17 00:00:00 2001 From: Robbert Krebbers <mail@robbertkrebbers.nl> Date: Sun, 21 Jan 2018 08:50:37 +0100 Subject: [PATCH] Fix priorities of IntoLaterN instances. This should fix iris-examples. --- theories/proofmode/class_instances.v | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/theories/proofmode/class_instances.v b/theories/proofmode/class_instances.v index b535887c0..61013accb 100644 --- a/theories/proofmode/class_instances.v +++ b/theories/proofmode/class_instances.v @@ -168,19 +168,19 @@ Proof. by rewrite /FromAlways. Qed. (* IntoLater *) Global Instance into_laterN_later n P Q : - IntoLaterN n P Q → IntoLaterN' (S n) (▷ P) Q. + IntoLaterN n P Q → IntoLaterN' (S n) (▷ P) Q | 0. Proof. by rewrite /IntoLaterN' /IntoLaterN =>->. Qed. Global Instance into_laterN_later_further n P Q : - IntoLaterN' n P Q → IntoLaterN' n (▷ P) (▷ Q). + IntoLaterN' n P Q → IntoLaterN' n (▷ P) (▷ Q) | 1000. Proof. rewrite /IntoLaterN' /IntoLaterN =>->. by rewrite -laterN_later. Qed. -Global Instance into_laterN_laterN n P : IntoLaterN' n (▷^n P) P. +Global Instance into_laterN_laterN n P : IntoLaterN' n (▷^n P) P | 0. Proof. done. Qed. Global Instance into_laterN_laterN_plus n m P Q : - IntoLaterN m P Q → IntoLaterN' (n + m) (▷^n P) Q. + IntoLaterN m P Q → IntoLaterN' (n + m) (▷^n P) Q | 1. Proof. rewrite /IntoLaterN' /IntoLaterN=>->. by rewrite laterN_plus. Qed. Global Instance into_laterN_laterN_further n m P Q : - IntoLaterN' m P Q → IntoLaterN' m (▷^n P) (▷^n Q). + IntoLaterN' m P Q → IntoLaterN' m (▷^n P) (▷^n Q) | 1000. Proof. rewrite /IntoLaterN' /IntoLaterN=>->. by rewrite -!laterN_plus Nat.add_comm. Qed. -- GitLab