diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-22 15:31:12 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-23 12:09:14 +0200 |
commit | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (patch) | |
tree | f23aa6340c2630619864666ef5eed257d3d765d9 /proofs/logic.ml | |
parent | d23c7539887366202bc370d0f80c26a557486e1c (diff) |
Removing dead code, thanks to new OCaml warnings and a bit of scripting.
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 30905e577..054e6db6c 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -695,12 +695,6 @@ let prim_refiner r sigma goal = let sigma = Goal.V82.partial_solution sigma goal ev in ([gl], sigma) - | Order ord -> - let hyps' = reorder_val_context env sign ord in - let (gl,ev,sigma) = mk_goal hyps' cl in - let sigma = Goal.V82.partial_solution sigma goal ev in - ([gl], sigma) - | Rename (id1,id2) -> if !check && not (Id.equal id1 id2) && Id.List.mem id2 |