diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-09 16:40:03 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-09 16:40:03 +0000 |
| commit | f1778f0e830c50aaec250916f14e202d95960414 (patch) | |
| tree | ae220556180dfa55d6b638467deb7edf58d4c17b /contrib/correctness/pmisc.ml | |
| parent | 8dbab7f463cabfc2913ab8615973c96ac98bf371 (diff) | |
Suppression des arguments sur les constantes, inductifs et constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2106 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/pmisc.ml')
| -rw-r--r-- | contrib/correctness/pmisc.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/correctness/pmisc.ml b/contrib/correctness/pmisc.ml index c885242bd..936c39d56 100644 --- a/contrib/correctness/pmisc.ml +++ b/contrib/correctness/pmisc.ml @@ -146,8 +146,8 @@ let coq_constant d s = make_path (List.map id_of_string ("Coq" :: d)) (id_of_string s) CCI let bool_sp = coq_constant ["Init"; "Datatypes"] "bool" -let coq_true = mkMutConstruct (((bool_sp,0),1), [||]) -let coq_false = mkMutConstruct (((bool_sp,0),2), [||]) +let coq_true = mkMutConstruct ((bool_sp,0),1) +let coq_false = mkMutConstruct ((bool_sp,0),2) let constant s = let id = id_of_string s in |