Skip to content

Commit fa163ec

Browse files
fixed to work with just Z3
1 parent 71c3b87 commit fa163ec

1 file changed

Lines changed: 6 additions & 2 deletions

File tree

theories/modules/TotalProb.ec

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -206,7 +206,9 @@ move => lt_m_n.
206206
rewrite (total_prob M (drange m n) (range m n)).
207207
by rewrite drange_ll.
208208
by rewrite range_uniq.
209-
rewrite /support_is => j; smt(supp_drange mem_range).
209+
rewrite /support_is => j; split => [j_in_drange | j_in_range].
210+
rewrite mem_range; by rewrite supp_drange in j_in_drange.
211+
rewrite supp_drange; by rewrite mem_range in j_in_range.
210212
rewrite (big_weight_simp M) //; by move => j /mem_range.
211213
qed.
212214
@@ -236,7 +238,9 @@ lemma big_weight_simp (M <: T) (xs : t list, i : input, ys : t list) &m :
236238
proof.
237239
move => uniq_xs.
238240
elim ys => [// | y ys IH mem_impl].
239-
smt(big_cons duniform1E_uniq).
241+
rewrite 2!big_cons (_ : predT true) //=.
242+
rewrite duniform1E_uniq // (_ : y \in xs) 1:mem_impl //=.
243+
rewrite IH => [z z_in_ys | //]; by rewrite mem_impl /= z_in_ys.
240244
qed.
241245
242246
(*& total probability lemma for `duniform` &*)

0 commit comments

Comments
 (0)