diff options
author | 2017-01-26 18:19:54 -0500 | |
---|---|---|
committer | 2017-01-26 18:20:08 -0500 | |
commit | 39c70ae2abd720ec76e01c85d2aa0e56aeae3414 (patch) | |
tree | b8ca8c8c4e935a078813d1f753f29db7e95f91d4 /src/Reflection/Relations.v | |
parent | 0cf72bdda642db646e25cba8af97f3c63d88764d (diff) |
Split off some bits of Reflection.Syntax
Also split off some bits of Util.Tactics
Diffstat (limited to 'src/Reflection/Relations.v')
-rw-r--r-- | src/Reflection/Relations.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Reflection/Relations.v b/src/Reflection/Relations.v index cd5d174a3..41281b7cc 100644 --- a/src/Reflection/Relations.v +++ b/src/Reflection/Relations.v @@ -1,5 +1,6 @@ -Require Import Coq.Classes.RelationClasses Coq.Classes.Morphisms. +Require Import Coq.Lists.List Coq.Classes.RelationClasses Coq.Classes.Morphisms. Require Import Crypto.Reflection.Syntax. +Require Import Crypto.Reflection.Wf. Require Import Crypto.Util.Tactics. Require Import Crypto.Util.Prod. Require Import Crypto.Util.Sigma. @@ -187,7 +188,7 @@ Section language. Lemma interp_flat_type_rel_pointwise2_hetero_flatten_binding_list2 {interp_base_type1 interp_base_type2 t1 t2 T1 T2} R' e1 e2 v1 v2 - (H : List.In (existT _ (t1, t2)%core (v1, v2)%core) (flatten_binding_list2 base_type_code e1 e2)) + (H : List.In (existT _ (t1, t2)%core (v1, v2)%core) (flatten_binding_list2 e1 e2)) (HR : interp_flat_type_rel_pointwise2_hetero interp_base_type1 interp_base_type2 R' T1 T2 e1 e2) : R' t1 t2 v1 v2. Proof. |