diff options
author | Jason Gross <jgross@mit.edu> | 2017-05-16 22:41:43 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-05-16 22:41:43 -0400 |
commit | ad997a5143d7e3cf81ef323b18fafc74f473549d (patch) | |
tree | 449929ce98404b1e168f4423f0bebc2fa6c722d0 /src/Compilers/Named/CompileInterp.v | |
parent | 65aa068685dcd8d797a4970eeda7cecea62f54ff (diff) |
Flip order of extendb, lookup arguments
This allows better Proper lemmas
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) |