vvaluecheckLockedVars :: Termterm to check-> Typeits type-> Arg Termthe lock-> Typetype of the lock-> TCM ()Peek#