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

proofmode: normalize big_opL

parent 0157c46f
......@@ -490,7 +490,7 @@ Lemma test_big_sepL_simpl x (l : list nat) P :
([ list] ky l, <affine> y = y ) -
([ list] y x :: l, <affine> y = y ) -
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 :
P -
......
......@@ -22,7 +22,8 @@ Declare Reduction pm_cbn := cbn [
tele_fold tele_bind tele_app
(* BI connectives *)
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 :=
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