Skip to content

Commit

Permalink
lebesgue differentiation, ftc, lebesgue's density
Browse files Browse the repository at this point in the history
  • Loading branch information
affeldt-aist committed Dec 14, 2023
1 parent 75c6d89 commit e359088
Show file tree
Hide file tree
Showing 3 changed files with 2,106 additions and 7 deletions.
2 changes: 1 addition & 1 deletion theories/charge.v
Original file line number Diff line number Diff line change
Expand Up @@ -585,7 +585,7 @@ have [v [v0 Pv]] : {v : nat -> elt_type |
v 0%N = exist _ (A0, d_ set0, A0) (And4 mA0 A0D (d_ge0 set0) A0d0) /\
forall n, elt_rel (v n) (v n.+1)}.
apply: dependent_choice_Type => -[[[A' ?] U] [/= mA' A'D]].
have [A1 [mA1 A1DU A1t1] ] := next_elt U.
have [A1 [mA1 A1DU A1t1]] := next_elt U.
have A1D : A1 `<=` D by apply: (subset_trans A1DU); apply: subDsetl.
by exists (exist _ (A1, d_ U, U `|` A1) (And4 mA1 A1D (d_ge0 U) A1t1)).
have Ubig n : U_ (v n) = \big[setU/set0]_(i < n.+1) A_ (v i).
Expand Down
Loading

0 comments on commit e359088

Please sign in to comment.