diff options
| author | msozeau | 2007-01-29 12:20:10 +0000 |
|---|---|---|
| committer | msozeau | 2007-01-29 12:20:10 +0000 |
| commit | 72b9b70181ed0b1880ab296ef2eb01d557a676c6 (patch) | |
| tree | 60b7e47e2c01354f6427438b90c384427bb77221 /contrib/subtac/FixSub.v | |
| parent | 8878a1974cf41ea40e411785d1197f2722a50445 (diff) | |
Coqdoc patch for Program, fix xlate.ml warning and little subtac fixes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9550 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/FixSub.v')
| -rw-r--r-- | contrib/subtac/FixSub.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/subtac/FixSub.v b/contrib/subtac/FixSub.v index 0016bfdaf2..46121ff182 100644 --- a/contrib/subtac/FixSub.v +++ b/contrib/subtac/FixSub.v @@ -2,13 +2,13 @@ Require Import Wf. Require Import Coq.subtac.Utils. Section Well_founded. - Variable A : Set. + Variable A : Type. Variable R : A -> A -> Prop. Hypothesis Rwf : well_founded R. Section Acc. - Variable P : A -> Set. + Variable P : A -> Type. Variable F_sub : forall x:A, (forall y: { y : A | R y x }, P (proj1_sig y)) -> P x. @@ -20,7 +20,7 @@ Section Well_founded. End Acc. Section FixPoint. - Variable P : A -> Set. + Variable P : A -> Type. Variable F_sub : forall x:A, (forall y: { y : A | R y x }, P (proj1_sig y)) -> P x. @@ -75,13 +75,13 @@ Require Import Wf_nat. Require Import Lt. Section Well_founded_measure. -Variable A : Set. +Variable A : Type. Variable f : A -> nat. Definition R := fun x y => f x < f y. Section FixPoint. -Variable P : A -> Set. +Variable P : A -> Type. Variable F_sub : forall x:A, (forall y: { y : A | f y < f x }, P (proj1_sig y)) -> P x. |