Skip to content

Commit 5eebdc1

Browse files
committed
fix: Fixed flexible tactic usages in Soundness
1 parent b944556 commit 5eebdc1

1 file changed

Lines changed: 5 additions & 3 deletions

File tree

ArkLib/ProofSystem/Logup/Security/Soundness.lean

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1475,8 +1475,10 @@ private theorem logup_outer_soundness_from_local_algebra
14751475
ProtocolSpec.challengeOracleInterface) F) =
14761476
(liftM ($ᵗ F) : StateT σ ProbComp F) := by
14771477
rw [simulateQ_query]
1478-
simp [qIn, ProtocolSpec.challengeQueryImpl, QueryImpl.liftTarget_apply,
1479-
outerChallengeXIdx]
1478+
simp only [ProtocolSpec.ChallengeIdx, Nat.reduceAdd, Fin.vcons_fin_zero,
1479+
MultiplicityMessage, HelperMessages, BatchingChallenge, ProtocolSpec.Challenge,
1480+
outerChallengeXIdx, Fin.isValue, OracleQuery.input_query, OracleQuery.cont_query,
1481+
QueryImpl.liftTarget_apply, ProtocolSpec.challengeQueryImpl, qIn]
14801482
change id <$> (liftM (($ᵗ F) : ProbComp F) : StateT σ ProbComp F) =
14811483
(liftM (($ᵗ F) : ProbComp F) : StateT σ ProbComp F)
14821484
simp
@@ -1970,7 +1972,7 @@ The final check is deterministic: if the retained sumcheck final claim is not in
19701972
language, the reconstructed value `qAtPoint` disagrees with the claimed target and the verifier
19711973
rejects. -/
19721974

1973-
omit [SampleableType F] in
1975+
omit [SampleableType F] [Fintype F] in
19741976
/-- Soundness of the deterministic final LogUp point check with zero phase error. -/
19751977
theorem logup_finalCheck_soundness :
19761978
(finalCheckVerifier oSpec F n M params).soundness init impl

0 commit comments

Comments
 (0)