Commit 4ecef793 by Ralf Jung

### simplify proofs

parent 8e0fae21
 ... ... @@ -188,9 +188,8 @@ Section sep_list. rewrite big_sepL_snoc // IH sep_and -pure_and. f_equiv=>-[Hl Hx] k y /lookup_app_Some =>-[Hy|[Hlen Hy]]. - by apply Hl. - replace k with (length l) in Hy |- *; last first. { apply lookup_lt_Some in Hy. simpl in Hy. lia. } rewrite Nat.sub_diag /= in Hy. injection Hy as [= ->]. done. - apply list_lookup_singleton_Some in Hy as [Hk ->]. replace k with (length l) by lia. done. Qed. Lemma big_sepL_affinely_pure_2 (φ : nat → A → Prop) l : ⌜∀ k x, l !! k = Some x → φ k x⌝ ⊢@{PROP} ([∗ list] k↦x ∈ l, ⌜φ k x⌝). ... ... @@ -964,9 +963,8 @@ Section and_list. rewrite big_andL_snoc // IH -pure_and. f_equiv=>-[Hl Hx] k y /lookup_app_Some =>-[Hy|[Hlen Hy]]. - by apply Hl. - replace k with (length l) in Hy |- *; last first. { apply lookup_lt_Some in Hy. simpl in Hy. lia. } rewrite Nat.sub_diag /= in Hy. injection Hy as [= ->]. done. - apply list_lookup_singleton_Some in Hy as [Hk ->]. replace k with (length l) by lia. done. Qed. Lemma big_andL_pure_2 (φ : nat → A → Prop) l : ⌜∀ k x, l !! k = Some x → φ k x⌝ ⊢@{PROP} ([∧ list] k↦x ∈ l, ⌜φ k x⌝). ... ...
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!