Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add states natively to execution monad #3

Draft
wants to merge 17 commits into
base: main
Choose a base branch
from
Draft

Conversation

Nils-Lauermann
Copy link
Contributor

This is still very much unfinished. I never fully fixed up the promising part. Also I need to clean up the Exec.v file: Make res/t record visually more separated, use Exec.res monadic operations in Exec.t.

Copy link
Collaborator

@tperami tperami left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Just random comments

@@ -70,6 +70,10 @@ Proof. tcclean. unfold mret, list_ret. set_solver. Qed.

#[export] Instance list_elements {A} : Elements A (list A) := λ x, x.

#[global] Instance cdestruct_list_elements b {A} x (l : list A) :
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is already in the set unfold instances, is there a particular reason to use this instance instead? Also please don't use global

@@ -234,16 +234,17 @@ Module GenPromising (IWA : InterfaceWithArch) (TM : TermModelsT IWA).
(** Check if all threads have no outstanding promises *)
Definition nopromises (ps : t) := fforallb (nopromises_tid ps).

(* Definition liftSt {St St' E A} (getter : St → St') `{Setter St St' getter} (inner : Exec.t St' E A) : Exec.t St E A. *)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This should not be still here

: Exec.t string t :=
ev ← promise_select_tid fuel st tid;
mret $ promise_tid isem prom st tid ev.
Program Definition cpromise_tid (fuel : nat) (tid : fin n)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Remove unused Program

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants