diff options
| author | Jason Gross | 2017-05-31 00:49:36 -0400 |
|---|---|---|
| committer | Jason Gross | 2017-06-02 20:04:34 -0400 |
| commit | 42d510ceea82d617ac4e630049d690acbe900688 (patch) | |
| tree | d68ae2fa7b0815c3d5164b2410e534befbe48039 /pretyping/nativenorm.ml | |
| parent | a2a98a4015311af83edcf8fc87aa30a5318bead8 (diff) | |
Don't double up on periods in anomalies
We don't want "Anomaly: Returned a functional value in a type not
recognized as a product type.. Please report at
http://coq.inria.fr/bugs/." but instead "Anomaly: Returned a functional
value in a type not recognized as a product type. Please report at
http://coq.inria.fr/bugs/."
Diffstat (limited to 'pretyping/nativenorm.ml')
| -rw-r--r-- | pretyping/nativenorm.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index afaa20b6f6..10d9173f18 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -183,7 +183,7 @@ let rec nf_val env sigma v typ = try decompose_prod env typ with DestKO -> CErrors.anomaly - (Pp.strbrk "Returned a functional value in a type not recognized as a product type.") + (Pp.strbrk "Returned a functional value in a type not recognized as a product type") in let env = push_rel (LocalAssum (name,dom)) env in let body = nf_val env sigma (f (mk_rel_accu lvl)) codom in @@ -229,7 +229,7 @@ and nf_args env sigma accu t = try decompose_prod env t with DestKO -> CErrors.anomaly - (Pp.strbrk "Returned a functional value in a type not recognized as a product type.") + (Pp.strbrk "Returned a functional value in a type not recognized as a product type") in let c = nf_val env sigma arg dom in (subst1 c codom, c::l) @@ -246,7 +246,7 @@ and nf_bargs env sigma b t = try decompose_prod env !t with DestKO -> CErrors.anomaly - (Pp.strbrk "Returned a functional value in a type not recognized as a product type.") + (Pp.strbrk "Returned a functional value in a type not recognized as a product type") in let c = nf_val env sigma (block_field b i) dom in t := subst1 c codom; c) @@ -357,7 +357,7 @@ and nf_predicate env sigma ind mip params v pT = try decompose_prod env pT with DestKO -> CErrors.anomaly - (Pp.strbrk "Returned a functional value in a type not recognized as a product type.") + (Pp.strbrk "Returned a functional value in a type not recognized as a product type") in let dep,body = nf_predicate (push_rel (LocalAssum (name,dom)) env) sigma ind mip params vb codom in |