From ace7f0b6307fb229fe8dc8fab0519da27a07e570 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Sun, 30 Oct 2016 00:08:48 -0400 Subject: Minor reflective changes --- src/Reflection/LinearizeInterp.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Reflection/LinearizeInterp.v') diff --git a/src/Reflection/LinearizeInterp.v b/src/Reflection/LinearizeInterp.v index 1da4ac851..dfc37824d 100644 --- a/src/Reflection/LinearizeInterp.v +++ b/src/Reflection/LinearizeInterp.v @@ -77,7 +77,7 @@ Section language. Local Hint Resolve interpf_linearizef. Lemma interp_linearize {t} e - : interp_type_gen_rel_pointwise interp_flat_type (fun _ => @eq _) + : interp_type_gen_rel_pointwise (fun _ => @eq _) (interp interp_op (linearize (t:=t) e)) (interp interp_op e). Proof. @@ -86,7 +86,7 @@ Section language. Qed. Lemma Interp_Linearize {t} (e : Expr t) - : interp_type_gen_rel_pointwise interp_flat_type (fun _ => @eq _) + : interp_type_gen_rel_pointwise (fun _ => @eq _) (Interp interp_op (Linearize e)) (Interp interp_op e). Proof. -- cgit v1.2.3