diff options
author | 2000-01-26 17:22:13 +0000 | |
---|---|---|
committer | 2000-01-26 17:22:13 +0000 | |
commit | d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c (patch) | |
tree | 989cc0c825d7c8ac2e95e5f173caf24ae3cd29f7 /tactics/dhyp.ml | |
parent | 3c0c85ea71400cd4b2d1dc5630405dc1f90aa5f3 (diff) |
MAJ ocaml 2.99 (espaces dans la syntaxe des cast)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@284 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/dhyp.ml')
-rw-r--r-- | tactics/dhyp.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/dhyp.ml b/tactics/dhyp.ml index 1b47b7c1e..5969cebbb 100644 --- a/tactics/dhyp.ml +++ b/tactics/dhyp.ml @@ -191,8 +191,8 @@ let specification_dd x = x type destructor_data_object = identifier * destructor_data -let ((inDD:destructor_data_object->obj), - (outDD:obj->destructor_data_object)) = +let ((inDD : destructor_data_object->obj), + (outDD : obj->destructor_data_object)) = declare_object ("DESTRUCT-HYP-CONCL-DATA", { load_function = (fun _ -> ()); cache_function = cache_dd; @@ -306,7 +306,7 @@ let _ = | [] -> dConcl | _ -> bad_tactic_args "DConcl")) -let to2Lists (table:t) = Nbtermdn.to2lists table +let to2Lists (table : t) = Nbtermdn.to2lists table let rec search n = if n=0 then error "Search has reached zero."; |