diff options
| author | herbelin | 2008-04-27 16:23:04 +0000 |
|---|---|---|
| committer | herbelin | 2008-04-27 16:23:04 +0000 |
| commit | 75681234e0ba2ae283cc22c2c3e0c4045b205879 (patch) | |
| tree | 08d0d7c27ea6570926d83f8d06a70e0ee15092bc /theories/Ints/num/QMake_base.v | |
| parent | ecf68d1ed251e2c6b4abd9e97400d3ab009d2925 (diff) | |
Report des quelques modifs faites avec Pierre Letouzey sur les
fichiers en attendant une intégration à theories/Numbers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10857 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Ints/num/QMake_base.v')
| -rw-r--r-- | theories/Ints/num/QMake_base.v | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/theories/Ints/num/QMake_base.v b/theories/Ints/num/QMake_base.v index f82c5d25b2..0cd2d2122f 100644 --- a/theories/Ints/num/QMake_base.v +++ b/theories/Ints/num/QMake_base.v @@ -1,15 +1,30 @@ -Require Export BigN. -Require Export BigZ. +(************************************************************************) +(* 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:$ *) +(** * An implementation of rational numbers based on big integers *) +(** +- Authors: Benjamin Grégoire, Laurent Théry +- Institution: INRIA +- Date: 2007 +*) + +Require Export BigN. +Require Export BigZ. (* Basic type for Q: a Z or a pair of a Z and an N *) + Inductive q_type : Set := | Qz : BigZ.t -> q_type | Qq : BigZ.t -> BigN.t -> q_type. - - Definition print_type x := match x with | Qz _ => Z |