From 2af6ceefe79f3f19e0e341857067415d25b8c9cf Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 6 Apr 2006 12:45:49 +0000 Subject: 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 --- backend/Cmconstrproof.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'backend/Cmconstrproof.v') 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. -- cgit