diff options
author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-09-21 17:04:39 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-09-21 17:04:39 +0200 |
commit | ccb110fc5532796e63553150a0b0ef91a0bccd61 (patch) | |
tree | 5c9847a09a4fc548a49aced0478493dbcace1aed /backend | |
parent | cea20127183438dec1073706543f1fa90e9ba696 (diff) | |
parent | 320f39edca5061b84a8a45b5c33e516049c7f7fe (diff) | |
download | compcert-ccb110fc5532796e63553150a0b0ef91a0bccd61.tar.gz compcert-ccb110fc5532796e63553150a0b0ef91a0bccd61.zip |
Merge pull request #142 from maximedenes/minor-fixes
Fix minor issues in some proofs and tactics.
Patch by Maxime Dénès.
Diffstat (limited to 'backend')
-rw-r--r-- | backend/Deadcodeproof.v | 8 |
1 files changed, 4 insertions, 4 deletions
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. |