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/CommonSubexpressionEliminationWf.v | |
| parent | 65aa068685dcd8d797a4970eeda7cecea62f54ff (diff) | |
Flip order of extendb, lookup arguments
This allows better Proper lemmas
Diffstat (limited to 'src/Compilers/CommonSubexpressionEliminationWf.v')
| -rw-r--r-- | src/Compilers/CommonSubexpressionEliminationWf.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Compilers/CommonSubexpressionEliminationWf.v b/src/Compilers/CommonSubexpressionEliminationWf.v index 8d8a5d86f..76ed1fa96 100644 --- a/src/Compilers/CommonSubexpressionEliminationWf.v +++ b/src/Compilers/CommonSubexpressionEliminationWf.v @@ -83,10 +83,10 @@ Section symbolic. (m1 : @SymbolicExprContext (interp_flat_type var1)) (m2 : @SymbolicExprContext (interp_flat_type var2)) (Hlen : length m1 = length m2) - (Hm1m2None : forall t v, lookupb m1 v t = None <-> lookupb m2 v t = None) + (Hm1m2None : forall t v, lookupb t m1 v = None <-> lookupb t m2 v = None) (Hm1m2Some : forall t v sv1 sv2, - lookupb m1 v t = Some sv1 - -> lookupb m2 v t = Some sv2 + lookupb t m1 v = Some sv1 + -> lookupb t m2 v = Some sv2 -> forall k, List.In k (flatten_binding_list (t:=t) |