From d2779fd2ac6f180e3db501abcc1d316bbca2e724 Mon Sep 17 00:00:00 2001 From: Jean-Christophe Filliatre <Jean-Christophe.Filliatre@lri.fr> Date: Mon, 5 Sep 2011 09:03:09 +0200 Subject: [PATCH] more lemmas about num_of --- theories/int.why | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/theories/int.why b/theories/int.why index ba270cd69d..b355962500 100644 --- a/theories/int.why +++ b/theories/int.why @@ -169,7 +169,7 @@ theory NumOfParam axiom Num_of_right_no_add : forall p : param, a b : int. - a < b -> not pr p (b-1) -> num_of p a b = num_of p a (b-1) + a < b -> not (pr p (b-1)) -> num_of p a b = num_of p a (b-1) axiom Num_of_right_add : forall p : param, a b : int. a < b -> pr p (b-1) -> num_of p a b = 1 + num_of p a (b-1) @@ -203,10 +203,21 @@ theory NumOfParam (* by Num_of_append and Num_of_non_negative *) lemma num_of_strictly_increasing: - forall p : param, i j k l : int. + forall p: param, i j k l: int. i <= j <= k < l -> pr p k -> num_of p i j < num_of p i l (* by Num_of_append and num_of_increasing *) + lemma num_of_change_any: + forall p1 p2: param, a b: int. + (forall j: int. a <= j < b -> pr p1 j -> pr p2 j) -> + num_of p2 a b >= num_of p1 a b + + lemma num_of_change_some: + forall p1 p2: param, a b i: int. a <= i < b -> + (forall j: int. a <= j < b -> pr p1 j -> pr p2 j) -> + not (pr p1 i) -> pr p2 i -> + num_of p2 a b > num_of p1 a b + end theory NumOf -- GitLab