Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
concordium
smart-contract-interactions
Commits
f4bc2be8
Commit
f4bc2be8
authored
Jun 21, 2019
by
Jakob Botsch Nielsen
Browse files
Fix for Coq 8.8
parent
e7245511
Pipeline
#12837
passed with stage
in 5 minutes and 23 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/LocalBlockchain.v
View file @
f4bc2be8
...
...
@@ -362,7 +362,7 @@ Definition validate_header (header : BlockHeader) (chain : Chain) : option unit
&&
(
current_slot
chain
<?
block_slot
header
)
&&
(
finalized_height
chain
<=?
block_finalized_height
header
)
&&
(
block_finalized_height
header
<?
block_height
header
)
&&
(
Bool
.
eq
b
(
address_is_contract
(
block_creator
header
))
false
)
&&
neg
b
(
address_is_contract
(
block_creator
header
))
&&
(
block_reward
header
>=?
0
)
%
Z
then
Some
tt
else
None
.
...
...
@@ -378,9 +378,11 @@ Proof.
|
[
H
:
context
[
Nat
.
eqb
?
a
?
b
]
|-
_
]
=>
destruct
(
Nat
.
eqb_spec
a
b
)
|
[
H
:
context
[
Nat
.
ltb
?
a
?
b
]
|-
_
]
=>
destruct
(
Nat
.
ltb_spec
a
b
)
|
[
H
:
context
[
Nat
.
leb
?
a
?
b
]
|-
_
]
=>
destruct
(
Nat
.
leb_spec
a
b
)
|
[
H
:
context
[
Bool
.
eqb
?
a
?
b
]
|-
_
]
=>
destruct
(
Bool
.
eqb_spec
a
b
)
|
[
H
:
context
[
Z
.
geb
?
a
?
b
]
|-
_
]
=>
destruct
(
Z
.
geb_spec
a
b
)
end
;
[
|
repeat
rewrite
Bool
.
andb_false_r
in
valid
;
cbn
in
valid
;
congruence
]).
destruct
(
negb
(
address_is_contract
(
block_creator
header
)))
eqn
:
to_acc
;
[
|
cbn
in
valid
;
congruence
].
apply
Bool
.
negb_true_iff
in
to_acc
.
apply
build_is_valid_next_block
;
cbn
;
auto
.
lia
.
Qed
.
...
...
Write
Preview
Supports
Markdown
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