diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-31 16:23:14 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-31 16:23:14 +0000 |
commit | 4e4293dba98be63d44759f2a81c18ea7f1f01a08 (patch) | |
tree | ee16fe79b9c09d8de803487615a7dc909776d481 /contrib/subtac/subtac_pretyping_F.ml | |
parent | 4f1a1753fa1ae53f931f17017dd74422469982f4 (diff) |
Fix obvious syntax error. Forgot to recompile before commiting...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10493 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/subtac_pretyping_F.ml')
-rw-r--r-- | contrib/subtac/subtac_pretyping_F.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/subtac/subtac_pretyping_F.ml b/contrib/subtac/subtac_pretyping_F.ml index 9669acc23..a59d2483e 100644 --- a/contrib/subtac/subtac_pretyping_F.ml +++ b/contrib/subtac/subtac_pretyping_F.ml @@ -493,7 +493,8 @@ module SubtacPretyping_F (Coercion : Coercion.S) = struct let j = pretype tycon env isevars lvar (RCases (loc, None, [c], [p])) - (* Change case info *) + in + (* Change case info *) let j' = match kind_of_term j.uj_val with Case (ci, po, c, br) -> let pp_info = { ci.ci_pp_info with style = LetPatternStyle } in |