diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-04-06 12:45:49 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-04-06 12:45:49 +0000 |
| commit | 2af6ceefe79f3f19e0e341857067415d25b8c9cf (patch) | |
| tree | d9a86f7129ca2baa4155104f2b8a8088720b2931 /backend/Cmconstrproof.v | |
| parent | 2bfadd421f60863ac78076474dcbaf705b76bd3a (diff) | |
| download | compcert-2af6ceefe79f3f19e0e341857067415d25b8c9cf.tar.gz compcert-2af6ceefe79f3f19e0e341857067415d25b8c9cf.zip | |
Dans Cminor et Csharpminor: suppression de stmtlist, ajout de Sskip, Sseq.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@11 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Cmconstrproof.v')
| -rw-r--r-- | backend/Cmconstrproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Cmconstrproof.v b/backend/Cmconstrproof.v index 19b7473d..b7469be8 100644 --- a/backend/Cmconstrproof.v +++ b/backend/Cmconstrproof.v @@ -1128,7 +1128,7 @@ Theorem exec_ifthenelse_true: forall sp e1 m1 a e2 m2 v ifso ifnot e3 m3 out, eval_expr ge sp nil e1 m1 a e2 m2 v -> Val.is_true v -> - exec_stmtlist ge sp e2 m2 ifso e3 m3 out -> + exec_stmt ge sp e2 m2 ifso e3 m3 out -> exec_stmt ge sp e1 m1 (ifthenelse a ifso ifnot) e3 m3 out. Proof. intros. unfold ifthenelse. @@ -1141,7 +1141,7 @@ Theorem exec_ifthenelse_false: forall sp e1 m1 a e2 m2 v ifso ifnot e3 m3 out, eval_expr ge sp nil e1 m1 a e2 m2 v -> Val.is_false v -> - exec_stmtlist ge sp e2 m2 ifnot e3 m3 out -> + exec_stmt ge sp e2 m2 ifnot e3 m3 out -> exec_stmt ge sp e1 m1 (ifthenelse a ifso ifnot) e3 m3 out. Proof. intros. unfold ifthenelse. |