diff options
| author | Arnaud Spiwack | 2014-07-23 15:14:24 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-07-23 17:43:18 +0200 |
| commit | 474197250baa3366385563bc5403a0871d106275 (patch) | |
| tree | e66c039faa15124113a0c832a7f08d70af155ac7 | |
| parent | ab4d3bae45265d18357bacbdeeefb7018f1e58c5 (diff) | |
Proof_global: an unused variable replaced by a wildcard.
| -rw-r--r-- | proofs/proof_global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 5a7fb3ceba..673f614e3a 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -299,7 +299,7 @@ let close_proof ?feedback_id ~now fpl = Future.from_val (univs, nf t), p in let entries = - Future.map2 (fun p (c, t) -> + Future.map2 (fun p (_, t) -> let univstyp, body = make_body t p in let univs, typ = Future.force univstyp in { Entries. |