Commit 79ea27b3 authored by Ralf Jung's avatar Ralf Jung

proofmode: normalize big_opL

parent 0157c46f
Pipeline #10461 canceled with stage
in 2 minutes and 25 seconds
...@@ -490,7 +490,7 @@ Lemma test_big_sepL_simpl x (l : list nat) P : ...@@ -490,7 +490,7 @@ Lemma test_big_sepL_simpl x (l : list nat) P :
([ list] ky l, <affine> y = y ) - ([ list] ky l, <affine> y = y ) -
([ list] y x :: l, <affine> y = y ) - ([ list] y x :: l, <affine> y = y ) -
P. P.
Proof. iIntros "HP ?? /=". Show. done. Qed. Proof. iIntros "HP ??". Show. done. Qed.
Lemma test_big_sepL2_simpl x1 x2 (l1 l2 : list nat) P : Lemma test_big_sepL2_simpl x1 x2 (l1 l2 : list nat) P :
P - P -
......
...@@ -22,7 +22,8 @@ Declare Reduction pm_cbn := cbn [ ...@@ -22,7 +22,8 @@ Declare Reduction pm_cbn := cbn [
tele_fold tele_bind tele_app tele_fold tele_bind tele_app
(* BI connectives *) (* BI connectives *)
bi_persistently_if bi_affinely_if bi_intuitionistically_if bi_persistently_if bi_affinely_if bi_intuitionistically_if
bi_wandM bi_tforall bi_texist bi_wandM big_opL
bi_tforall bi_texist
]. ].
Ltac pm_eval t := Ltac pm_eval t :=
let u := eval pm_cbv in t in let u := eval pm_cbv in t in
......
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