Skip to content

Make default the more corecursive version of eutt. - #70

Merged
Lysxia merged 5 commits into
DeepSpec:imp2asmfrom
gilhur:imp2asm
Feb 28, 2019
Merged

Lysxia merged 5 commits into
DeepSpec:imp2asmfrom
gilhur:imp2asm

Conversation

@gilhur

@gilhur gilhur commented Feb 28, 2019

Copy link
Copy Markdown
Collaborator
  • Simplify several proofs directly using this new eutt.

- Simplify several proofs directly using this new `eutt`.
Comment thread theories/Core.v
Comment thread theories/Eq/SimUpToTaus.v
Comment thread theories/FixFacts.v
- rewrite !tau_bind.
pfold. econstructor. pupto2_final. eauto.
- rewrite !vis_bind.
pfold. econstructor. intros. pupto2_final. eauto.

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

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

This proof looks very nice now!

Comment thread theories/MorphismsFacts.v
Lemma unfold_interp {E F R} {f : E ~> itree F} (t : itree E R) :
interp f _ t ≅ interp_u f _ (observe t).
Proof. rewrite itree_eta_, interp_unfold, <-itree_eta_. reflexivity. Qed.
observing eq (interp f _ t) (interp_u f _ (observe t)).

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

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

Thanks for these!

Comment thread theories/MorphismsFacts.v
@Lysxia

Lysxia commented Feb 28, 2019

Copy link
Copy Markdown
Collaborator

I'm going to fix the interp1 proofs.

@Lysxia
Lysxia merged commit 0793ceb into DeepSpec:imp2asm Feb 28, 2019
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