Commit df0bf3ac authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add missing `Implicit Type` and fix an unbounded variable.

parent 6b37b21d
...@@ -49,6 +49,7 @@ Notation "'[∗' 'mset]' x ∈ X , P" := (big_opMS bi_sep (λ x, P) X) : bi_scop ...@@ -49,6 +49,7 @@ Notation "'[∗' 'mset]' x ∈ X , P" := (big_opMS bi_sep (λ x, P) X) : bi_scop
(** * Properties *) (** * Properties *)
Section bi_big_op. Section bi_big_op.
Context {PROP : bi}. Context {PROP : bi}.
Implicit Types P Q : PROP.
Implicit Types Ps Qs : list PROP. Implicit Types Ps Qs : list PROP.
Implicit Types A : Type. Implicit Types A : Type.
...@@ -91,7 +92,7 @@ Section sep_list. ...@@ -91,7 +92,7 @@ Section sep_list.
(big_opL (@bi_sep PROP) (A:=A)). (big_opL (@bi_sep PROP) (A:=A)).
Proof. intros f g Hf m ? <-. apply big_opL_forall; apply _ || intros; apply Hf. Qed. Proof. intros f g Hf m ? <-. apply big_opL_forall; apply _ || intros; apply Hf. Qed.
Global Instance big_sepL_id_mono' : Global Instance big_sepL_id_mono' :
Proper (Forall2 () ==> ()) (big_opL (@bi_sep M) (λ _ P, P)). Proper (Forall2 () ==> ()) (big_opL (@bi_sep PROP) (λ _ P, P)).
Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed. Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed.
Lemma big_sepL_emp l : ([ list] ky l, emp) @{PROP} emp. Lemma big_sepL_emp l : ([ list] ky l, emp) @{PROP} emp.
...@@ -470,7 +471,7 @@ Section and_list. ...@@ -470,7 +471,7 @@ Section and_list.
(big_opL (@bi_and PROP) (A:=A)). (big_opL (@bi_and PROP) (A:=A)).
Proof. intros f g Hf m ? <-. apply big_opL_forall; apply _ || intros; apply Hf. Qed. Proof. intros f g Hf m ? <-. apply big_opL_forall; apply _ || intros; apply Hf. Qed.
Global Instance big_andL_id_mono' : Global Instance big_andL_id_mono' :
Proper (Forall2 () ==> ()) (big_opL (@bi_and M) (λ _ P, P)). Proper (Forall2 () ==> ()) (big_opL (@bi_and PROP) (λ _ P, P)).
Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed. Proof. by induction 1 as [|P Q Ps Qs HPQ ? IH]; rewrite /= ?HPQ ?IH. Qed.
Lemma big_andL_lookup Φ l i x `{!Absorbing (Φ i x)} : Lemma big_andL_lookup Φ l i x `{!Absorbing (Φ i x)} :
......
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