From 35a17f7c9a42e654a646114aeecfbba60fd71b06 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Thu, 9 Jan 2020 09:08:15 +0100 Subject: moving forward with proofs --- backend/ForwardMovesproof.v | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'backend/ForwardMovesproof.v') diff --git a/backend/ForwardMovesproof.v b/backend/ForwardMovesproof.v index 7727bc38..c44d4084 100644 --- a/backend/ForwardMovesproof.v +++ b/backend/ForwardMovesproof.v @@ -388,7 +388,21 @@ Proof. rewrite subst_args_ok by assumption. constructor. constructor; auto. constructor. - admit. + simpl in *. + unfold fmap_sem in *. + destruct (forward_map _) as [map |] eqn:MAP in *; trivial. + apply get_rb_sem_ge with (rb2 := map # pc); trivial. + replace (map # pc) with (apply_instr' (fn_code f) pc (map # pc)). + { + eapply DS.fixpoint_solution with (code := fn_code f) (successors := successors_instr); try eassumption. + 2: apply apply_instr'_bot. + simpl. tauto. + } + unfold apply_instr'. + unfold get_rb_sem in *. + destruct (map # pc) in *; try contradiction. + rewrite H. + reflexivity. (* tailcall *) - econstructor; split. -- cgit