Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
Iris
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
81
Issues
81
List
Boards
Labels
Milestones
Merge Requests
10
Merge Requests
10
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
Iris
Commits
37db79b9
Commit
37db79b9
authored
Mar 11, 2016
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Comment out admitted sts_frag_included, it is not used anyway.
Should be restored later.
parent
ce4c7913
Changes
1
Hide whitespace changes
Inline
Sidebyside
Showing
1 changed file
with
3 additions
and
3 deletions
+3
3
algebra/sts.v
algebra/sts.v
+3
3
No files found.
algebra/sts.v
View file @
37db79b9
...
...
@@ 385,6 +385,7 @@ Qed.
(* This is surprisingly different from to_validity_included. I am not sure
whether this is because to_validity_included is noncanonical, or this
one here is noncanonical  but I suspect both. *)
(*
Lemma sts_frag_included S1 S2 T1 T2 :
closed S2 T2 → S2 ≢ ∅ →
(sts_frag S1 T1 ≼ sts_frag S2 T2) ↔
...
...
@@ 392,7 +393,7 @@ Lemma sts_frag_included S1 S2 T1 T2 :
S2 ≡ S1 ∩ up_set S2 Tf).
Proof.
intros ??; split.

intros
[[???]
?].
(*
 intros [[???] ?].
destruct (to_validity_included (sts_dra.car sts) (sts_dra.frag S1 T1) (sts_dra.frag S2 T2)) as [Hfincl Htoincl].
intros Hcl2 HS2ne. split.
 intros Hincl. destruct Hfincl as ((Hcl1 & ?) & (z & EQ & Hval & Hdisj)).
...
...
@@ 413,7 +414,6 @@ Proof.
* by apply up_set_non_empty.
+ constructor; last done. by rewrite HS.
Qed.
*)
Admitted
.
Lemma sts_frag_included' S1 S2 T :
closed S2 T → closed S1 T → S2 ≢ ∅ → S1 ≢ ∅ → S2 ≡ S1 ∩ up_set S2 ∅ →
...
...
@@ 421,7 +421,7 @@ Lemma sts_frag_included' S1 S2 T :
Proof.
intros. apply sts_frag_included; split_and?; auto.
exists ∅; split_and?; done  set_solver+.
Qed
.
Qed.
*)
End
stsRA
.
(** STSs without tokens: Some stuff is simpler *)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment