Skip to content
GitLab
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
6c960f42
Commit
6c960f42
authored
May 27, 2019
by
Jakob Botsch Nielsen
Browse files
Update for dev Coq
parent
81647d05
Pipeline
#12542
passed with stage
in 5 minutes and 23 seconds
Changes
4
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/Congress.v
View file @
6c960f42
...
...
@@ -495,7 +495,7 @@ Proof.
destruct
(
FMap
.
find
(
next_proposal_id
state
)
(
proposals
state
))
as
[
proposal
|
]
eqn
:
find
.
-
remember_new_proposal
.
rewrite
<-
(
FMap
.
add_remove
_
(
next_proposal_id
state
)
new_proposal
).
Hint
Resolve
FMap
.
find_remove
.
Hint
Resolve
FMap
.
find_remove
:
core
.
rewrite
<-
(
FMap
.
add_id
_
_
_
find
)
at
2.
rewrite
<-
(
FMap
.
add_remove
_
(
next_proposal_id
state
)
proposal
).
repeat
rewrite
FMap
.
elements_add
;
auto
.
...
...
@@ -540,7 +540,7 @@ Proof.
rewrite
<-
(
FMap
.
add_id
(
proposals
state
)
pid
p
)
at
2
;
auto
.
rewrite
<-
(
FMap
.
add_remove
_
pid
p
).
rewrite
<-
(
FMap
.
add_remove
_
pid
new_proposal
).
Hint
Resolve
FMap
.
find_remove
.
Hint
Resolve
FMap
.
find_remove
:
core
.
repeat
rewrite
FMap
.
elements_add
;
auto
.
subst
;
reflexivity
.
Qed
.
...
...
@@ -793,7 +793,7 @@ Theorem congress_txs_well_behaved to contract :
num_acts_created_in_proposals
to
contract
.
Proof
.
intros
[
trace
]
congress_deployed
.
Hint
Resolve
contract_addr_format
.
Hint
Resolve
contract_addr_format
:
core
.
assert
(
address_is_contract
contract
=
true
)
as
addr_format
by
eauto
.
remember
empty_state
eqn
:
eq
.
(
*
Contract
cannot
have
been
deployed
in
empty
trace
so
we
solve
that
immediately
.
*
)
...
...
src/Congress_Buggy.v
View file @
6c960f42
...
...
@@ -437,7 +437,7 @@ Section Theories.
let
count
tx
:=
match
tx_body
tx
with
|
tx_call
msg
=>
match
deserialize
msg
with
match
deserialize
msg
:
option
Msg
with
|
Some
(
create_proposal
acts
)
=>
length
acts
|
_
=>
0
end
...
...
src/LocalBlockchain.v
View file @
6c960f42
...
...
@@ -348,7 +348,7 @@ Section ExecuteActions.
destruct
trace
as
[
trace
].
Hint
Constructors
ChainEvent
:
core
.
Hint
Constructors
ChainedList
:
core
.
Hint
Unfold
ChainTrace
.
Hint
Unfold
ChainTrace
:
core
.
destruct
df
.
+
(
*
depth
-
first
case
*
)
eapply
IH
;
try
eassumption
;
eauto
.
...
...
@@ -504,7 +504,7 @@ Proof.
refine
(
execute_actions_reachable
_
_
_
_
_
_
exec
).
constructor
.
refine
(
snoc
prev_lcb_trace
_
).
Hint
Resolve
validate_header_valid
validate_actions_valid
.
Hint
Resolve
validate_header_valid
validate_actions_valid
:
core
.
eapply
evt_block
;
eauto
.
apply
add_new_block_header_equiv
.
reflexivity
.
...
...
src/LocalBlockchainTests.v
View file @
6c960f42
...
...
@@ -178,7 +178,7 @@ Section LocalBlockchainTests.
Print
Assumptions
chain8
.
End
LocalBlockchainTests
.
Hint
Resolve
congress_txs_after_block
.
Hint
Resolve
congress_txs_after_block
:
core
.
(
*
The
congress
satisfies
a
property
specialized
to
the
local
blockchain
DFS
:
*
)
Lemma
congress_txs_after_local_chain_block
(
prev
new
:
LocalChainBuilderDepthFirst
)
baker
acts
slot
finalization_height
:
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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