From 763cf4f37e10d9a0e8a2a0e9286c02708a60bf08 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 16 Jul 2004 20:01:26 +0000
Subject: Nouvelle en-tête

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5920 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/indtypes.ml | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'kernel/indtypes.ml')

diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml
index 1f357eb292..dbf7bc58e0 100644
--- a/kernel/indtypes.ml
+++ b/kernel/indtypes.ml
@@ -1,10 +1,10 @@
-(***********************************************************************)
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
-(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
-(*   \VV/  *************************************************************)
-(*    //   *      This file is distributed under the terms of the      *)
-(*         *       GNU Lesser General Public License Version 2.1       *)
-(***********************************************************************)
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
 
 (* $Id$ *)
 
@@ -25,7 +25,7 @@ open Entries
    of names. The name [id] is the name of the current inductive type, used
    when reporting the error. *)
 
-(***********************************************************************)
+(************************************************************************)
 (* Various well-formedness check for inductive declarations            *)
 
 type inductive_error =
@@ -87,8 +87,8 @@ let mind_check_arities env mie =
     (fun {mind_entry_typename=id; mind_entry_arity=ar} -> check_arity id ar)
     mie.mind_entry_inds
 
-(***********************************************************************)
-(***********************************************************************)
+(************************************************************************)
+(************************************************************************)
 
 (* Typing the arities and constructor types *)
 
@@ -233,8 +233,8 @@ let typecheck_inductive env mie =
       ([],cst) in
   (env_arities, Array.of_list inds, cst)
 
-(***********************************************************************)
-(***********************************************************************)
+(************************************************************************)
+(************************************************************************)
 (* Positivity *)
 
 type ill_formed_ind =
@@ -446,8 +446,8 @@ let check_positivity env_ar inds =
   Rtree.mk_rec (Array.mapi check_one inds)
 
 
-(***********************************************************************)
-(***********************************************************************)
+(************************************************************************)
+(************************************************************************)
 (* Build the inductive packet *)
     
 (* Elimination sorts *)
@@ -536,8 +536,8 @@ let build_inductive env env_ar record finite inds recargs cst =
     mind_equiv = None;
   }
 
-(***********************************************************************)
-(***********************************************************************)
+(************************************************************************)
+(************************************************************************)
 
 let check_inductive env mie =
   (* First type-check the inductive definition *)
-- 
cgit v1.2.3