maxvalue |D[Sqrt[2 - Sqrt[2 + Sqrt[2 + x]]],x]| where 0<x<1