diff options
author | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-01-30 12:21:05 +0100 |
---|---|---|
committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-02-24 13:35:05 +0100 |
commit | 97614d75a3ae8e515170d1c58c0cbbdf55346558 (patch) | |
tree | 2d18af0abebdbccb662fb8ff3ed89918fbfbe7fc /pretyping/recordops.ml | |
parent | c4370e5394cc9f678250150bd5bb407629b21913 (diff) |
Stack operations of Reductionops in Reductionops.Stack
Diffstat (limited to 'pretyping/recordops.ml')
-rw-r--r-- | pretyping/recordops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index fe3606ce4..dfbe9a0b5 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -293,8 +293,8 @@ let is_open_canonical_projection env sigma (c,args) = try let n = find_projection_nparams (global_of_constr c) in try - let arg = whd_betadeltaiota env sigma (stack_nth args n) in + let arg = whd_betadeltaiota env sigma (Stack.nth args n) in let hd = match kind_of_term arg with App (hd, _) -> hd | _ -> arg in - not (isConstruct hd) + not (isConstruct hd) with Failure _ -> false with Not_found -> false |