Skip to content
Snippets Groups Projects
Commit cc31e712 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix indentation.

parent a34184ae
No related branches found
No related tags found
No related merge requests found
...@@ -99,10 +99,10 @@ Section ectx_language. ...@@ -99,10 +99,10 @@ Section ectx_language.
Lemma fill_val K e : is_Some (to_val (fill K e)) is_Some (to_val e). Lemma fill_val K e : is_Some (to_val (fill K e)) is_Some (to_val e).
Proof. apply ectx_language_mixin. Qed. Proof. apply ectx_language_mixin. Qed.
Lemma step_by_val K' K_redex e1' e1_redex σ1 κ e2 σ2 efs : Lemma step_by_val K' K_redex e1' e1_redex σ1 κ e2 σ2 efs :
fill K' e1' = fill K_redex e1_redex fill K' e1' = fill K_redex e1_redex
to_val e1' = None to_val e1' = None
head_step e1_redex σ1 κ e2 σ2 efs head_step e1_redex σ1 κ e2 σ2 efs
K'', K_redex = comp_ectx K' K''. K'', K_redex = comp_ectx K' K''.
Proof. apply ectx_language_mixin. Qed. Proof. apply ectx_language_mixin. Qed.
Lemma head_ctx_step_val K e σ1 κ e2 σ2 efs : Lemma head_ctx_step_val K e σ1 κ e2 σ2 efs :
head_step (fill K e) σ1 κ e2 σ2 efs is_Some (to_val e) K = empty_ectx. head_step (fill K e) σ1 κ e2 σ2 efs is_Some (to_val e) K = empty_ectx.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment