diff options
| author | Matej Kosik | 2016-01-11 12:34:30 +0100 |
|---|---|---|
| committer | Matej Kosik | 2016-01-11 12:34:30 +0100 |
| commit | 78bad016e389cd78635d40281bfefd7136733b7e (patch) | |
| tree | 51f90da34d2444734868d7954412ac08ddc0f5c6 /library/decls.ml | |
| parent | f8eb2ed4ddbe2199187696f51c42734014f4d9d0 (diff) | |
| parent | 9d991d36c07efbb6428e277573bd43f6d56788fc (diff) | |
merge
Diffstat (limited to 'library/decls.ml')
| -rw-r--r-- | library/decls.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/decls.ml b/library/decls.ml index 8d5085f70e..b5f9143b8a 100644 --- a/library/decls.ml +++ b/library/decls.ml @@ -11,7 +11,6 @@ open Util open Names -open Context open Decl_kinds open Libnames @@ -55,7 +54,7 @@ let initialize_named_context_for_proof () = Environ.push_named_context_val d signv) sign Environ.empty_named_context_val let last_section_hyps dir = - fold_named_context + Context.Named.fold_outside (fun (id,_,_) sec_ids -> try if DirPath.equal dir (variable_path id) then id::sec_ids else sec_ids with Not_found -> sec_ids) |