> [(PE.Focus,Proof)] -> [(PE.Focus,Proof)]
addHypInSubProofs hyp = L.map (second updCtx)
     where updCtx p = let Right ctx = getCtx p 
                          ctx' = addHypothesis' hyp ctx
                          Right p' = setCtx ctx' p 
                      in p'

isDeclared :: DerivDecl -> FunD
addHypInSubProofs :: Hypothesis -> [(PE.Focus,Proof)] -> [(PE.Focus,Proof)]
addHypInSubProofs hyp = L.map (second updCtx)
     where updCtx p = let Right ctx = getCtx p 
                          ctx' = addHypothesis' hyp ctx
                          Right p' = setCtx ctx' p 
                      in p'
addHypInSubProofs hyp = L.map (second updCtx)
     where updCtx p = let Right ctx = getCtx p 
                          ctx' = addHypothesis' hyp ctx
                          Right p' = setCtx ctx' p 
                      in p'