Mercurial > cpdt > repo
diff src/Reflection.v @ 445:0650420c127b
Finished vertical spacing
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Wed, 01 Aug 2012 17:31:56 -0400 |
parents | 8077352044b2 |
children | b6c47e6d43dc |
line wrap: on
line diff
--- a/src/Reflection.v Wed Aug 01 17:03:39 2012 -0400 +++ b/src/Reflection.v Wed Aug 01 17:31:56 2012 -0400 @@ -44,7 +44,6 @@ (Even_SS (Even_SS (Even_SS - ]] %\noindent%...and so on. This procedure always works (at least on machines with infinite resources), but it has a serious drawback, which we see when we print the proof it generates that 256 is even. The final proof term has length super-linear in the input value. Coq's implicit arguments mechanism is hiding the values given for parameter [n] of [Even_SS], which is why the proof term only appears linear here. Also, proof terms are represented internally as syntax trees, with opportunity for sharing of node representations, but in this chapter we will measure proof term size as simple textual length or as the number of nodes in the term's syntax tree, two measures that are approximately equivalent. Sometimes apparently large proof terms have enough internal sharing that they take up less memory than we expect, but one avoids having to reason about such sharing by ensuring that the size of a sharing-free version of a term is low enough. @@ -66,7 +65,6 @@ Print partial. (** %\vspace{-.15in}% [[ Inductive partial (P : Prop) : Set := Proved : P -> [P] | Uncertain : [P] - ]] A [partial P] value is an optional proof of [P]. The notation [[P]] stands for [partial P]. *) @@ -174,7 +172,6 @@ fun H : True /\ True => and_ind (fun _ _ : True => or_introl (True /\ (True -> True)) I) H : True /\ True -> True \/ True /\ (True -> True) - ]] As we might expect, the proof that [tauto] builds contains explicit applications of natural deduction rules. For large formulas, this can add a linear amount of proof size overhead, beyond the size of the input. @@ -240,7 +237,6 @@ Qed. Print true_galore'. - (** %\vspace{-.15in}% [[ true_galore' = tautTrue