ClearAll["Global`*"]
Manipulate[
tet = PolyhedronData["Tetrahedron", "GraphicsComplex"];
 sc = ScalingTransform[    
     (* Upper and Lower limits of scale reduction *)
   RootReduce[  
     coeff  PolyhedronData["Tetrahedron", "Inradius"] /  
       PolyhedronData["Tetrahedron", "Circumradius"]] {1, 1, 1}];

    gr = Graphics3D[{Green, 
    MapAt[sc, tet, 
     1]}];
  (*Added [[1]] first element*)
gr1=Graphics3D[GeometricTransformation[{Opacity[0.4,Yellow], gr[[1]] },RotationTransform[teta,{x,y,z}]]]; 
 Show[{Graphics3D[{Opacity[0.4, Yellow], tet}, Boxed -> False]}, 
  gr ,gr1], {{coeff, 1}, 1, 3, 0.1}, 
 Row[{Control[{x, {0, 1}, ControlType -> Checkbox}], Spacer[20], 
   Control[ {y, {1, 0}, ControlType -> Checkbox}], Spacer[20], 
   Control[{z, {0, 1}, ControlType -> Checkbox}]}], {{teta, 0}, 0, 
  Pi}
]