Commit 4fb1664c authored by Ike Mulder's avatar Ike Mulder
Browse files

Some thoughts on improving speed of log.atom verifications.

parent 4cd7e0d5
Pipeline #62070 passed with stage
in 6 minutes and 30 seconds
...@@ -209,8 +209,9 @@ Section spec. ...@@ -209,8 +209,9 @@ Section spec.
Next Obligation. verify_tac. Qed. Next Obligation. verify_tac. Qed.
Next Obligation. verify_tac. Qed. Next Obligation. verify_tac. Qed.
Next Obligation. verify_tac. Qed. Next Obligation. verify_tac. Qed.
Next Obligation. intros; iSmash. Qed. (* verify_tac fails since it does induction, then gets conflicted on a ▷ ⌜_⌝ which is not used because of the later *) Next Obligation. smash_verify_tac. Qed.
Next Obligation. intros; iSmash. Qed. Next Obligation. intros; iSmash. Qed.
(* fails because we don't DropModal ▷ on WPs *)
End spec. End spec.
......
...@@ -149,6 +149,10 @@ Section glp_lemmas. ...@@ -149,6 +149,10 @@ Section glp_lemmas.
(* finally, when the environment is empty, mark the 'modality' as introducable *) (* finally, when the environment is empty, mark the 'modality' as introducable *)
(* This should be able to be improved, to require less proof steps: just put only the non-Laterable things in the argument P.
However, my initial attempts failed. This is because the order matters in which things are put into the goal,
and the current approach keeps the order currently found in the environment, which seems to be okay.
Maybe we need a MakeSep which determines heuristically which goals should be put on the RHS? *)
Global Instance intuitionistically_introducable Δ F P : Global Instance intuitionistically_introducable Δ F P :
TCEq (env_spatial Δ) Enil IntroducableInAs (PROP := PROP) (greatest_laterable_fixpoint_wrt F) P Δ (IntroduceHyp P (F P)) | 30. TCEq (env_spatial Δ) Enil IntroducableInAs (PROP := PROP) (greatest_laterable_fixpoint_wrt F) P Δ (IntroduceHyp P (F P)) | 30.
Proof. Proof.
......
Supports Markdown
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