Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
stdpp
Commits
9b01e3d8
Commit
9b01e3d8
authored
May 30, 2017
by
Robbert Krebbers
Browse files
Fix some spacing.
parent
81022281
Pipeline
#4240
passed with stage
in 5 minutes and 2 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
theories/decidable.v
theories/decidable.v
+4
-4
No files found.
theories/decidable.v
View file @
9b01e3d8
...
...
@@ -37,10 +37,10 @@ Lemma decide_iff {A} P Q `{Decision P, Decision Q} (x y : A) :
(
P
↔
Q
)
→
(
if
decide
P
then
x
else
y
)
=
(
if
decide
Q
then
x
else
y
).
Proof
.
intros
[??].
destruct
(
decide
P
),
(
decide
Q
)
;
tauto
.
Qed
.
Lemma
decide_left
`
{
Decision
P
,
!
ProofIrrel
P
}
(
HP
:
P
)
:
decide
P
=
left
HP
.
Proof
.
destruct
(
decide
P
)
as
[?|?]
;
[|
contradiction
].
f_equal
.
apply
proof_irrel
.
Qed
.
Lemma
decide_right
`
{
Decision
P
}
`
{
!
ProofIrrel
(
¬
P
)}
(
HP
:
¬
P
)
:
decide
P
=
right
HP
.
Proof
.
destruct
(
decide
P
)
as
[?|?]
;
[
contradiction
|].
f_equal
.
apply
proof_irrel
.
Qed
.
Lemma
decide_left
`
{
Decision
P
,
!
ProofIrrel
P
}
(
HP
:
P
)
:
decide
P
=
left
HP
.
Proof
.
destruct
(
decide
P
)
;
[|
contradiction
].
f_equal
.
apply
proof_irrel
.
Qed
.
Lemma
decide_right
`
{
Decision
P
,
!
ProofIrrel
(
¬
P
)}
(
HP
:
¬
P
)
:
decide
P
=
right
HP
.
Proof
.
destruct
(
decide
P
)
;
[
contradiction
|].
f_equal
.
apply
proof_irrel
.
Qed
.
(** The tactic [destruct_decide] destructs a sumbool [dec]. If one of the
components is double negated, it will try to remove the double negation. *)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment