diff options
| author | vsiles | 2008-03-17 14:34:34 +0000 |
|---|---|---|
| committer | vsiles | 2008-03-17 14:34:34 +0000 |
| commit | a4e02939c27240159946dd037d85db4cf6af2ef1 (patch) | |
| tree | 8379fe3ba100ff2056aeec1cc284ad975d94ee03 /toplevel/command.ml | |
| parent | 9e1ab25ce311b5c0e18e1023eaaa38673a38d3d5 (diff) | |
* Factorizing code : context_chop was used in several files (even as chop_context)
so I moved it to termops.ml
* Fixing a little bug in the Boolean to Leibniz transition in automatic boolean
declaration
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10686 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index b5c9cb59bd..44e1b2d941 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -318,16 +318,6 @@ let declare_eq_scheme sp = (* decidability of eq *) -(* Cut a context ctx in 2 parts (ctx1,ctx2) with ctx1 containing k - variables *) -let context_chop k ctx = - let rec chop_aux acc = function - | (0, l2) -> (List.rev acc, l2) - | (n, ((_,Some _,_ as h)::t)) -> chop_aux (h::acc) (n, t) - | (n, (h::t)) -> chop_aux (h::acc) (pred n, t) - | (_, []) -> failwith "context_chop" - in chop_aux [] (k,ctx) - let (inBoolLeib,outBoolLeib) = declare_object {(default_object "BOOLLIEB") with |