diff options
Diffstat (limited to 'kernel/context.ml')
-rw-r--r-- | kernel/context.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index 5256ee417..5cb964b9c 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -76,6 +76,13 @@ let rel_context_nhyps hyps = | (_,Some _,_)::hyps -> nhyps acc hyps in nhyps 0 hyps +let rel_context_tags ctx = + let rec aux l = function + | [] -> l + | (_,Some _,_)::ctx -> aux (true::l) ctx + | (_,None _,_)::ctx -> aux (false::l) ctx + in aux [] ctx + (*s Signatures of named hypotheses. Used for section variables and goal assumptions. *) |