diff options
| author | filliatr | 1999-11-22 16:55:44 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-22 16:55:44 +0000 |
| commit | cf59b39d44a7a765d51b0a426ad6d71678740195 (patch) | |
| tree | 4d6d5deff049574d40770c15feeef785dd2f5f07 /kernel/term.mli | |
| parent | a96aa78636b5fb4ede593b02b1efa2d3025d65d9 (diff) | |
module Wcclausenv
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@130 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.mli')
| -rw-r--r-- | kernel/term.mli | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/kernel/term.mli b/kernel/term.mli index 5113612413..5f8cfefc01 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -172,10 +172,7 @@ val mkMutCaseA : case_info -> constr -> constr -> constr array -> constr [typarray = [|t1,...tn|]] [funnames = [f1,.....fn]] [bodies = [b1,.....bn]] - then - - [ mkFix recindxs i typarray funnames bodies] - + then [ mkFix recindxs i typarray funnames bodies] constructs the $i$th function of the block [Fixpoint f1 [ctx1] = b1 @@ -183,7 +180,7 @@ val mkMutCaseA : case_info -> constr -> constr -> constr array -> constr ... with fn [ctxn] = bn.] - where the lenght of the $j$th context is $ij$. + \noindent where the lenght of the $j$th context is $ij$. *) val mkFix : int array -> int -> typed_type array -> name list -> constr array -> constr @@ -194,11 +191,8 @@ val mkFixDlam : int array -> int -> typed_type array (* If [typarray = [|t1,...tn|]] [funnames = [f1,.....fn]] - [bodies = [b1,.....bn]] - then - - [mkCoFix i typsarray funnames bodies] - + [bodies = [b1,.....bn]] \par\noindent + then [mkCoFix i typsarray funnames bodies] constructs the ith function of the block [CoFixpoint f1 = b1 |