Commit d472a8c4 by Jean-Christophe Filliatre

### partially revert the previous commit

parent 04d101c1
 ... ... @@ -176,6 +176,32 @@ theory NthLengthAppend end (** {2 Reversing a list} *) theory Reverse use export List use import Append function reverse (l: list 'a) : list 'a = match l with | Nil -> Nil | Cons x r -> reverse r ++ Cons x Nil end lemma reverse_append: forall l1 l2: list 'a, x: 'a. (reverse (Cons x l1)) ++ l2 = (reverse l1) ++ (Cons x l2) lemma reverse_reverse: forall l: list 'a. reverse (reverse l) = l use import Length lemma Reverse_length: forall l: list 'a. length (reverse l) = length l end (** {2 Reverse append} *) theory RevAppend ... ... @@ -207,42 +233,6 @@ theory RevAppend end (** {2 Reversing a list} *) theory Reverse use export List use import Append use import RevAppend function reverse (l: list 'a) : list 'a = rev_append l Nil lemma rev_append_def: forall l1 l2: list 'a. rev_append l1 l2 = reverse l1 ++ l2 lemma reverse_cons: forall x: 'a, r: list 'a. reverse (Cons x r) = reverse r ++ Cons x Nil lemma reverse_append: forall l1 l2: list 'a. reverse (l1 ++ l2) = (reverse l2) ++ (reverse l1) lemma reverse_cons_append: forall l1 l2: list 'a, x: 'a. (reverse (Cons x l1)) ++ l2 = (reverse l1) ++ (Cons x l2) lemma reverse_reverse: forall l: list 'a. reverse (reverse l) = l use import Length lemma Reverse_length: forall l: list 'a. length (reverse l) = length l end (** {2 Sorted lists for some order as parameter} *) theory Sorted ... ...
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment