diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /cfrontend/Cshmgenproof1.v | |
parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) |
Adapted to work with Coq 8.2-1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Cshmgenproof1.v')
-rw-r--r-- | cfrontend/Cshmgenproof1.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cfrontend/Cshmgenproof1.v b/cfrontend/Cshmgenproof1.v index 2c010cb..bd9cf22 100644 --- a/cfrontend/Cshmgenproof1.v +++ b/cfrontend/Cshmgenproof1.v @@ -80,7 +80,7 @@ Qed. (** * Properties of the translation functions *) Lemma map_partial_names: - forall (A B: Set) (f: A -> res B) + forall (A B: Type) (f: A -> res B) (l: list (ident * A)) (tl: list (ident * B)), map_partial prefix_var_name f l = OK tl -> List.map (@fst ident B) tl = List.map (@fst ident A) l. @@ -93,7 +93,7 @@ Proof. Qed. Lemma map_partial_append: - forall (A B: Set) (f: A -> res B) + forall (A B: Type) (f: A -> res B) (l1 l2: list (ident * A)) (tl1 tl2: list (ident * B)), map_partial prefix_var_name f l1 = OK tl1 -> map_partial prefix_var_name f l2 = OK tl2 -> |