From 8a7452976731275212f0c464385b380e2d590f5e Mon Sep 17 00:00:00 2001 From: filliatr Date: Wed, 11 Apr 2001 07:56:19 +0000 Subject: réparation d'un bug de Correctness: whd_programs ne doit pas réduire les terms contenant des Evar pas des Metas; mise à jour des exemples MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1577 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/correctness/preuves.v | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'contrib/correctness/preuves.v') diff --git a/contrib/correctness/preuves.v b/contrib/correctness/preuves.v index 730a25fd4..55cafbf8d 100644 --- a/contrib/correctness/preuves.v +++ b/contrib/correctness/preuves.v @@ -37,6 +37,13 @@ Save. Global Variable i : Z ref. Debug on. Correctness if0 { `0 <= i` } (if !i>0 then i:=!i-1 else tt) { `0 <= i` }. + +(**********************************************************************) + +Global Variable i : Z ref. +Debug on. +Correctness assert0 { `0 <= i` } begin assert { `i=2` }; i:=!i-1 end { `i=1` }. + (**********************************************************************) Correctness echange -- cgit v1.2.3