diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-21 22:08:07 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-21 22:08:07 +0200 |
| commit | 9cc12b684ee6833971c9549aa76cc683ba931090 (patch) | |
| tree | c3c602e334aea87be90e9d6b4988df225554e454 /backend/Unusedglobproof.v | |
| parent | b17a25bae0f9580caadfa5f795a3c12a050075f5 (diff) | |
| download | compcert-kvx-9cc12b684ee6833971c9549aa76cc683ba931090.tar.gz compcert-kvx-9cc12b684ee6833971c9549aa76cc683ba931090.zip | |
begin scripting the Compiler.v file
Diffstat (limited to 'backend/Unusedglobproof.v')
| -rw-r--r-- | backend/Unusedglobproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Unusedglobproof.v b/backend/Unusedglobproof.v index fa120b6d..160c0b18 100644 --- a/backend/Unusedglobproof.v +++ b/backend/Unusedglobproof.v @@ -428,9 +428,9 @@ Qed. End TRANSFORMATION. Theorem transf_program_match: - forall p tp, transform_program p = OK tp -> match_prog p tp. + forall p tp, transf_program p = OK tp -> match_prog p tp. Proof. - unfold transform_program; intros p tp TR. set (pm := prog_defmap p) in *. + unfold transf_program; intros p tp TR. set (pm := prog_defmap p) in *. destruct (used_globals p pm) as [u|] eqn:U; try discriminate. destruct (IS.for_all (global_defined p pm) u) eqn:DEF; inv TR. exists u; split. |