diff options
author | Pierre Boutillier <pierre.boutillier@pps.univ-paris-diderot.fr> | 2014-09-08 16:19:39 +0200 |
---|---|---|
committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-10-01 23:24:36 +0200 |
commit | 183112fc6a5fbb7d1c6d60b9717cdb8aceda78ca (patch) | |
tree | 8ac0350e08c22893acbb3905e028aee18f86bb5b /theories/PArith/BinPosDef.v | |
parent | b9a6247ddc52082065b56f296c889c41167e0507 (diff) |
Simpl less (so that cbn will not simpl too much)
Diffstat (limited to 'theories/PArith/BinPosDef.v')
-rw-r--r-- | theories/PArith/BinPosDef.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/PArith/BinPosDef.v b/theories/PArith/BinPosDef.v index fcc12ab45..44b9e7d03 100644 --- a/theories/PArith/BinPosDef.v +++ b/theories/PArith/BinPosDef.v @@ -537,7 +537,7 @@ Definition iter_op {A}(op:A->A->A) := end. Definition to_nat (x:positive) : nat := iter_op plus x (S O). - +Arguments to_nat x: simpl never. (** ** From Peano natural numbers to binary positive numbers *) (** A version preserving positive numbers, and sending 0 to 1. *) |