From 320f39edca5061b84a8a45b5c33e516049c7f7fe Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Wed, 21 Sep 2016 13:27:28 +0200 Subject: Fix minor issues in some proofs and tactics. These minor problems were revealed by porting CompCert to Coq 8.6, where they trigger errors. --- backend/Deadcodeproof.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'backend/Deadcodeproof.v') diff --git a/backend/Deadcodeproof.v b/backend/Deadcodeproof.v index a8d79c3f..5c293ee1 100644 --- a/backend/Deadcodeproof.v +++ b/backend/Deadcodeproof.v @@ -717,8 +717,8 @@ Ltac TransfInstr := FUN: transf_function _ _ = OK _, ANL: analyze _ _ = Some _ |- _ ] => generalize (transf_function_at _ _ _ _ _ _ FUN ANL INSTR); - intro TI; - unfold transf_instr in TI + let TI := fresh "TI" in + intro TI; unfold transf_instr in TI end. Ltac UseTransfer := @@ -1026,7 +1026,7 @@ Ltac UseTransfer := exploit transfer_builtin_args_sound; eauto. intros (tvl & A & B & C & D). exploit external_call_mem_extends; eauto 2 with na. eapply magree_extends; eauto. intros. apply nlive_all. - intros (v' & tm' & P & Q & R & S & T). + intros (v' & tm' & P & Q & R & S). econstructor; split. eapply exec_Ibuiltin; eauto. apply eval_builtin_args_preserved with (ge1 := ge); eauto. exact symbols_preserved. @@ -1077,7 +1077,7 @@ Ltac UseTransfer := - (* external function *) exploit external_call_mem_extends; eauto. - intros (res' & tm' & A & B & C & D & E). + intros (res' & tm' & A & B & C & D). simpl in FUN. inv FUN. econstructor; split. econstructor; eauto. -- cgit