From fd61b21d4244866f3a3190e110cba0a80382d6ff Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 19 Oct 2017 16:55:50 -0400 Subject: Use fold_right_cps2 to get eqb_cps to get the right continuation type --- src/Arithmetic/Core.v | 6 +++--- src/Arithmetic/Saturated/Core.v | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Arithmetic') diff --git a/src/Arithmetic/Core.v b/src/Arithmetic/Core.v index f2d9ee00b..5104a21aa 100644 --- a/src/Arithmetic/Core.v +++ b/src/Arithmetic/Core.v @@ -614,10 +614,10 @@ Module B. Definition from_associational_cps n (p:list limb) {T} (f:tuple Z n->T):= - fold_right_cps - (fun t st => + fold_right_cps2 + (fun t st T' f' => place_cps t (pred n) - (fun p=> add_to_nth_cps (fst p) (snd p) st id)) + (fun p=> add_to_nth_cps (fst p) (snd p) st f')) (zeros n) p f. Definition from_associational n p := from_associational_cps n p id. diff --git a/src/Arithmetic/Saturated/Core.v b/src/Arithmetic/Saturated/Core.v index 8af1cce6f..2118fcdfc 100644 --- a/src/Arithmetic/Saturated/Core.v +++ b/src/Arithmetic/Saturated/Core.v @@ -394,10 +394,10 @@ Module Columns. Definition from_associational_cps n (p:list B.limb) {T} (f:(list Z)^n -> T) := - fold_right_cps - (fun t st => + fold_right_cps2 + (fun t st T' f' => B.Positional.place_cps weight t (pred n) - (fun p=> cons_to_nth_cps (fst p) (snd p) st id)) + (fun p=> cons_to_nth_cps (fst p) (snd p) st f')) (nils n) p f. Definition from_associational n p := from_associational_cps n p id. -- cgit v1.2.3