From c91d2849ff6b770bd47406ffd36c7426503e2a44 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 7 Mar 2019 22:40:14 -0500 Subject: Fix hypothesis of UnderLets.list_rect_arrow_interp_related --- src/UnderLetsProofs.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/UnderLetsProofs.v b/src/UnderLetsProofs.v index 77030b646..09f1aea7d 100644 --- a/src/UnderLetsProofs.v +++ b/src/UnderLetsProofs.v @@ -520,7 +520,7 @@ Module Compilers. Lemma list_rect_arrow_interp_related {A B C Pnil Pcons ls x B' C' Pnil' Pcons' ls' x' R} {R' : B -> B' -> Prop} - (Hnil : forall x x', interp_related R (Pnil x) (Pnil' x')) + (Hnil : forall x x', R' x x' -> interp_related R (Pnil x) (Pnil' x')) (Hcons : forall x x', expr.interp_related ident_interp x x' -> forall l l', -- cgit v1.2.3