diff --git a/DynamicValidatorSetOneMessage.thy b/DynamicValidatorSetOneMessage.thy index 74b4ff6..0efc926 100644 --- a/DynamicValidatorSetOneMessage.thy +++ b/DynamicValidatorSetOneMessage.thy @@ -156,10 +156,13 @@ definition one_third_of_fwd_or_bwd_slashed where (**** intermediate stuff ends ****) + definition justification_fork_with_root where - "justification_fork_with_root s r rE h0 v0 h1 v1 \ \ child0 child1. - (finalized_with_root r rE s h0 child0 v0 \ finalized_with_root r rE s h1 child1 v1 \ - \(justified_with_root h1 v1 s h0 v0 \ justified_with_root h0 v0 s h1 v1))" + "justification_fork_with_root s r rE h0 v0 h1 v1 \ + justified s r rE \ + (\ child0 child1. + (finalized_with_root r rE s h0 child0 v0 \ finalized_with_root r rE s h1 child1 v1 \ + \(justified_with_root h1 v1 s h0 v0 \ justified_with_root h0 v0 s h1 v1)))" lemma justification_accountable_safety : "justification_fork_with_root s genesis 0 h0 v0 h1 v1 \ @@ -216,7 +219,7 @@ qed lemma fork_to_justification_fork_with_root: "fork s h0 v0 h1 v1 \ justification_fork_with_root s genesis 0 h0 v0 h1 v1" - by (metis fork_def justification_fork_with_root_def justification_is_ancestor) + by (metis fork_def justification_fork_with_root_def justification_is_ancestor justified_genesis) (** intermediate stuff ends here **)