diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index bf12b51..5a92978 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -54673,19 +54673,19 @@ LiouvillianFunction(R, F): Exports == Implementation where
is?(op, "dilog"::Symbol) => opli2
error "Not a Liouvillian operator"
- evaluate(opei, iei)$BasicOperatorFunctions1(F)
- evaluate(opli, ili)
- evaluate(opsi, isi)
- evaluate(opci, ici)
- evaluate(operf, ierf)
- evaluate(opli2, ili2)
- evaluate(opint, iint)
- derivative(opsi, sin(#1) / #1)
- derivative(opci, cos(#1) / #1)
- derivative(opei, exp(#1) / #1)
- derivative(opli, inv log(#1))
- derivative(operf, 2 * exp(-(#1**2)) / sqrt(pi()))
- derivative(opli2, log(#1) / (1 - #1))
+ evaluate(opei, iei)$BasicOperatorFunctions1(F)
+ evaluate(opli, ili)
+ evaluate(opsi, isi)
+ evaluate(opci, ici)
+ evaluate(operf, ierf)
+ evaluate(opli2, ili2)
+ evaluate(opint, iint)
+ derivative(opsi, (z1:F):F +-> sin(z1) / z1)
+ derivative(opci, (z1:F):F +-> cos(z1) / z1)
+ derivative(opei, (z1:F):F +-> exp(z1) / z1)
+ derivative(opli, (z1:F):F +-> inv log(z1))
+ derivative(operf, (z1:F):F +-> 2 * exp(-(z1**2)) / sqrt(pi()))
+ derivative(opli2, (z1:F):F +-> log(z1) / (1 - z1))
setProperty(opint,SPECIALEQUAL,eqint@((K,K) -> Boolean) pretend None)
setProperty(opint,SPECIALDIFF,dvint@((List F,SE) -> F) pretend None)
setProperty(opdint,SPECIALDIFF,dvdint@((List F,SE)->F) pretend None)
@@ -54699,7 +54699,10 @@ LiouvillianFunction(R, F): Exports == Implementation where
pint l == convert concat(convert("integral"::SE)@INP, l)
inint l ==
- r2:= convert([convert("::"::SE)@INP,convert(third l)@INP,convert("Symbol"::SE)@INP]@List INP)@INP
+ r2:= convert(
+ [convert("::"::SE)@INP,
+ convert(third l)@INP,
+ convert("Symbol"::SE)@INP]@List INP)@INP
pint [convert(integrand l)@INP, r2]
indint l ==
@@ -54707,8 +54710,8 @@ LiouvillianFunction(R, F): Exports == Implementation where
convert concat(convert("="::SE)@INP,
[convert(third l)@INP,
convert concat(convert("SEGMENT"::SE)@INP,
- [convert(third rest l)@INP,
- convert(third rest rest l)@INP])])]
+ [convert(third rest l)@INP,
+ convert(third rest rest l)@INP])])]
setProperty(opint, SPECIALINPUT, inint@(List F -> INP) pretend None)
setProperty(opdint, SPECIALINPUT, indint@(List F -> INP) pretend None)
diff --git a/changelog b/changelog
index da1177f..a5e5240 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090606 tpd src/axiom-website/patches.html 20090606.04.tpd.patch
+20090606 tpd books/bookvol10.4 LF +-> conversion
20090606 tpd src/axiom-website/patches.html 20090606.03.tpd.patch
20090606 tpd books/bookvol10.4 LPEFRAC +-> conversion
20090606 tpd src/axiom-website/patches.html 20090606.02.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index ef19e01..54f2c2e 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1469,5 +1469,7 @@ bookvol10.4 LODOF +-> conversion
bookvol10.4 LODOOPS +-> conversion
20090606.03.tpd.patch
bookvol10.4 LPEFRAC +-> conversion
+20090606.04.tpd.patch
+bookvol10.4 LF +-> conversion