diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-01-26 18:19:54 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-01-26 18:20:08 -0500 |
| commit | 39c70ae2abd720ec76e01c85d2aa0e56aeae3414 (patch) | |
| tree | b8ca8c8c4e935a078813d1f753f29db7e95f91d4 /src/Reflection/InterpWf.v | |
| parent | 0cf72bdda642db646e25cba8af97f3c63d88764d (diff) | |
Split off some bits of Reflection.Syntax
Also split off some bits of Util.Tactics
Diffstat (limited to 'src/Reflection/InterpWf.v')
| -rw-r--r-- | src/Reflection/InterpWf.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Reflection/InterpWf.v b/src/Reflection/InterpWf.v index c26c1c3ce..50d05d032 100644 --- a/src/Reflection/InterpWf.v +++ b/src/Reflection/InterpWf.v @@ -1,5 +1,6 @@ Require Import Coq.Strings.String Coq.Classes.RelationClasses. Require Import Crypto.Reflection.Syntax. +Require Import Crypto.Reflection.Wf. Require Import Crypto.Reflection.Relations. Require Import Crypto.Util.Tuple. Require Import Crypto.Util.Sigma. @@ -25,7 +26,7 @@ Section language. Lemma eq_in_flatten_binding_list {t x x' T e} (HIn : List.In (existT (fun t : base_type_code => (interp_base_type t * interp_base_type t)%type) t (x, x')%core) - (flatten_binding_list base_type_code (t:=T) e e)) + (flatten_binding_list (t:=T) e e)) : x = x'. Proof. induction T; simpl in *; [ | | rewrite List.in_app_iff in HIn ]; |