diff options
| author | Enrico | 2016-10-12 15:44:22 +0200 |
|---|---|---|
| committer | GitHub | 2016-10-12 15:44:22 +0200 |
| commit | 8cc15352747d37888afa77414aca532cdd7af769 (patch) | |
| tree | b8a173283d56437561c683c4ae4a25b7f252b41e | |
| parent | b0c734bcd978459e323c42acbde6c4a6d0f8b566 (diff) | |
| parent | 958599031dc67394cacdd29720b8ab56abd47dc2 (diff) | |
Merge pull request #76 from matej-kosik/master
changing "ssreflect.ml4" so that we avoid triggering bugs in camlp5's "pr_o.cmo" plugin
| -rw-r--r-- | mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 index 0b46980..93a1ba7 100644 --- a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 +++ b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 @@ -1139,7 +1139,7 @@ let interp_view_nbimps ist gl rc = let si = sig_it gl in let gl = re_sig si sigma in let pl, c = splay_open_constr gl t in - if isAppInd gl c then List.length pl else ~-(List.length pl) + if isAppInd gl c then List.length pl else (-(List.length pl)) with _ -> 0 (* }}} *) |