diff options
| author | herbelin | 2000-01-26 17:22:13 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-26 17:22:13 +0000 |
| commit | d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c (patch) | |
| tree | 989cc0c825d7c8ac2e95e5f173caf24ae3cd29f7 /proofs/refiner.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 'proofs/refiner.ml')
| -rw-r--r-- | proofs/refiner.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 3c8e390584..c5e77abfba 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -71,7 +71,7 @@ let rec norm_evar_pf sigma p = [ (v1 [p_1 ... p_l1]) ; (v2 [ p_(l1+1) ... p_(l1+l2) ]) ; ... ; (vk [ p_(l1+...+l(k-1)+1) ... p_(l1+...lk) ]) ] *) -let rec mapshape nl (fl:(proof_tree list -> proof_tree) list) +let rec mapshape nl (fl : (proof_tree list -> proof_tree) list) (l : proof_tree list) = match nl with | [] -> [] @@ -398,7 +398,7 @@ let tclTHENSI tac1 tac2l = tclTHENSi tac1 tac2l (fun _ -> tclIDTAC);; (* tclTHENL tac1 tac2 gls applies the tactic tac1 to gls and tac2 to the last resulting subgoal *) -let tclTHENL (tac1:tactic) (tac2:tactic) (gls:goal sigma) = +let tclTHENL (tac1 : tactic) (tac2 : tactic) (gls : goal sigma) = finish_tac (theni_tac (-1) tac2 (then_tac tac1 (start_tac gls))) ;; @@ -445,7 +445,7 @@ let tclWEAK_PROGRESS tac ptree = (* Same as tclWEAK_PROGRESS but fails also if tactics generates several goals, one of them being identical to the original goal *) -let tclNOTSAMEGOAL (tac:tactic) goal = +let tclNOTSAMEGOAL (tac : tactic) goal = let rslt = tac goal in let gls = (fst rslt).it in if List.exists (same_goal goal.it) gls @@ -896,7 +896,7 @@ let print_subscript sigma sign pf = else format_print_info_script sigma sign pf -let tclINFO (tac:tactic) gls = +let tclINFO (tac : tactic) gls = let (sgl,v) as res = tac gls in begin try let pf = v (List.map leaf (sig_it sgl)) in |