From 05a5825ee55227327ba1b09a548e3b9ba876d0cf Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Wed, 22 Apr 2020 08:53:06 +0200 Subject: use cbn in T instead of simpl in T --- tools/compiler_expand.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tools') diff --git a/tools/compiler_expand.ml b/tools/compiler_expand.ml index 1555d75b..4fc746f0 100644 --- a/tools/compiler_expand.ml +++ b/tools/compiler_expand.ml @@ -99,7 +99,7 @@ let print_rtl_proof oc = Printf.fprintf oc "set (p%d := %a%s.transf_program p%d) in *.\n" j (print_if "total") trigger pass_name (pred j) | PARTIAL -> - Printf.fprintf oc "destruct (%a%s.transf_program p%d) as [p%d|e] eqn:P%d; simpl in T; try discriminate.\n" + Printf.fprintf oc "destruct (%a%s.transf_program p%d) as [p%d|e] eqn:P%d; cbn in T; try discriminate.\n" (print_if "partial") trigger pass_name (pred j) j j) all_passes;; -- cgit