diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-07-22 17:44:10 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-07-23 17:42:36 +0200 |
| commit | ab4d3bae45265d18357bacbdeeefb7018f1e58c5 (patch) | |
| tree | 9935aedd7319348ac005bdaa10a3c40a0c4b36e3 /proofs/proof.ml | |
| parent | 1fd8e23da73422b17209e2d69a19dca6789bcaed (diff) | |
Proof_global.start_dependent_proof: properly threads the sigma through the telescope.
Allows for a more refined notion of dependently generated initial goals.
Diffstat (limited to 'proofs/proof.ml')
| -rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index 3d5eb2031..60522c54b 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -237,8 +237,8 @@ let start sigma goals = shelf = [] ; given_up = [] } in _focus end_of_stack (Obj.repr ()) 1 (List.length goals) pr -let dependent_start sigma goals = - let entry, proofview = Proofview.dependent_init sigma goals in +let dependent_start goals = + let entry, proofview = Proofview.dependent_init goals in let pr = { proofview; entry; |