Commit e0d10c05 authored by Robbert Krebbers's avatar Robbert Krebbers

Properly set scopes for `ectx(i)_language`, like we do for `language`.

This fixes the problem in iris/iris!275 (comment 42062)
parent 7e82f0ab
......@@ -61,13 +61,16 @@ Structure ectxLanguage := EctxLanguage {
EctxLanguageMixin of_val to_val empty_ectx comp_ectx fill head_step
}.
Bind Scope expr_scope with expr.
Bind Scope val_scope with val.
Arguments EctxLanguage {_ _ _ _ _ _ _ _ _ _ _} _.
Arguments of_val {_} _%V.
Arguments to_val {_} _%E.
Arguments of_val {_} _.
Arguments to_val {_} _.
Arguments empty_ectx {_}.
Arguments comp_ectx {_} _ _.
Arguments fill {_} _ _%E.
Arguments head_step {_} _%E _ _ _%E _ _.
Arguments fill {_} _ _.
Arguments head_step {_} _ _ _ _ _ _.
(* From an ectx_language, we can construct a language. *)
Section ectx_language.
......
......@@ -65,11 +65,14 @@ Structure ectxiLanguage := EctxiLanguage {
EctxiLanguageMixin of_val to_val fill_item head_step
}.
Bind Scope expr_scope with expr.
Bind Scope val_scope with val.
Arguments EctxiLanguage {_ _ _ _ _ _ _ _ _} _.
Arguments of_val {_} _%V.
Arguments to_val {_} _%E.
Arguments fill_item {_} _ _%E.
Arguments head_step {_} _%E _ _ _%E _ _.
Arguments of_val {_} _.
Arguments to_val {_} _.
Arguments fill_item {_} _ _.
Arguments head_step {_} _ _ _ _ _ _.
Section ectxi_language.
Context {Λ : ectxiLanguage}.
......@@ -144,7 +147,6 @@ Section ectxi_language.
Proof. change (LanguageCtx (fill [Ki])). apply _. Qed.
End ectxi_language.
Arguments fill {_} _ _%E.
Arguments ectxi_lang_ectx : clear implicits.
Arguments ectxi_lang : clear implicits.
Coercion ectxi_lang_ectx : ectxiLanguage >-> ectxLanguage.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment