diff options
Diffstat (limited to 'src/Compilers/Named/CompileInterp.v')
| -rw-r--r-- | src/Compilers/Named/CompileInterp.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Compilers/Named/CompileInterp.v b/src/Compilers/Named/CompileInterp.v index 32cc1e750..20a536ddc 100644 --- a/src/Compilers/Named/CompileInterp.v +++ b/src/Compilers/Named/CompileInterp.v @@ -49,7 +49,7 @@ Section language. Lemma interpf_ocompilef (ctx : Context) {t} (e : exprf t) e' (ls : list (option Name)) G (Hwf : wff G e e') - (HG : forall t n x, List.In (existT _ t (n, x)%core) G -> lookupb ctx n t = Some x) + (HG : forall t n x, List.In (existT _ t (n, x)%core) G -> lookupb t ctx n = Some x) v (H : ocompilef e ls = Some v) (Hls : oname_list_unique ls) @@ -174,7 +174,7 @@ Section language. Lemma interpf_compilef (ctx : Context) {t} (e : exprf t) e' (ls : list Name) G (Hwf : wff G e e') - (HG : forall t n x, List.In (existT _ t (n, x)%core) G -> lookupb ctx n t = Some x) + (HG : forall t n x, List.In (existT _ t (n, x)%core) G -> lookupb t ctx n = Some x) v (H : compilef e ls = Some v) (Hls : name_list_unique ls) |