diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-08-19 09:13:09 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-08-19 09:13:09 +0000 |
commit | 7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1 (patch) | |
tree | e324aff1a958e0a5d83f805ff3ca1d9eb07939f4 /lib/Maps.v | |
parent | 5b73a4f223a0cadb7df3f1320fed86cde0d67d6e (diff) | |
download | compcert-7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1.tar.gz compcert-7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1.zip |
Cleaned up old commented-out parts
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1719 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib/Maps.v')
-rw-r--r-- | lib/Maps.v | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -998,11 +998,6 @@ Module PTree <: TREE. destruct H0. congruence. Qed. -(* - Definition fold (A B : Type) (f: B -> positive -> A -> B) (tr: t A) (v: B) := - List.fold_left (fun a p => f a (fst p) (snd p)) (elements tr) v. -*) - Fixpoint xfold (A B: Type) (f: B -> positive -> A -> B) (i: positive) (m: t A) (v: B) {struct m} : B := match m with |