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

Set notation scopes of some language stuff.

parent bcb1b03d
No related branches found
No related tags found
No related merge requests found
...@@ -36,12 +36,12 @@ Class EctxLanguage (expr val ectx state : Type) := { ...@@ -36,12 +36,12 @@ Class EctxLanguage (expr val ectx state : Type) := {
exists K'', K' = comp_ectx K K''; exists K'', K' = comp_ectx K K'';
}. }.
Arguments of_val {_ _ _ _ _} _. Arguments of_val {_ _ _ _ _} _%V.
Arguments to_val {_ _ _ _ _} _. Arguments to_val {_ _ _ _ _} _%E.
Arguments empty_ectx {_ _ _ _ _}. Arguments empty_ectx {_ _ _ _ _}.
Arguments comp_ectx {_ _ _ _ _} _ _. Arguments comp_ectx {_ _ _ _ _} _ _.
Arguments fill {_ _ _ _ _} _ _. Arguments fill {_ _ _ _ _} _ _%E.
Arguments head_step {_ _ _ _ _} _ _ _ _ _. Arguments head_step {_ _ _ _ _} _%E _ _%E _ _.
Arguments to_of_val {_ _ _ _ _} _. Arguments to_of_val {_ _ _ _ _} _.
Arguments of_to_val {_ _ _ _ _} _ _ _. Arguments of_to_val {_ _ _ _ _} _ _ _.
......
...@@ -26,10 +26,10 @@ Class EctxiLanguage (expr val ectx_item state : Type) := { ...@@ -26,10 +26,10 @@ Class EctxiLanguage (expr val ectx_item state : Type) := {
head_step (fill_item Ki e) σ1 e2 σ2 efs is_Some (to_val e); head_step (fill_item Ki e) σ1 e2 σ2 efs is_Some (to_val e);
}. }.
Arguments of_val {_ _ _ _ _} _. Arguments of_val {_ _ _ _ _} _%V.
Arguments to_val {_ _ _ _ _} _. Arguments to_val {_ _ _ _ _} _%E.
Arguments fill_item {_ _ _ _ _} _ _. Arguments fill_item {_ _ _ _ _} _ _%E.
Arguments head_step {_ _ _ _ _} _ _ _ _ _. Arguments head_step {_ _ _ _ _} _%E _ _%E _ _.
Arguments to_of_val {_ _ _ _ _} _. Arguments to_of_val {_ _ _ _ _} _.
Arguments of_to_val {_ _ _ _ _} _ _ _. Arguments of_to_val {_ _ _ _ _} _ _ _.
...@@ -101,3 +101,5 @@ Section ectxi_language. ...@@ -101,3 +101,5 @@ Section ectxi_language.
LanguageCtx (ectx_lang expr) (fill_item Ki). LanguageCtx (ectx_lang expr) (fill_item Ki).
Proof. change (LanguageCtx _ (fill [Ki])). apply _. Qed. Proof. change (LanguageCtx _ (fill [Ki])). apply _. Qed.
End ectxi_language. End ectxi_language.
Arguments fill {_ _ _ _ _} _ _%E.
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