reserve D for non empty set;
reserve s for FinSequence of D;
reserve m,n for Element of NAT;

theorem Th14:
  for n be non zero Element of NAT,
  m be Integer,
  s be Element of n-tuples_on D
  holds Op-Shift(s,m) is Element of n-tuples_on D
  proof
    let n be non zero Element of NAT,
    m be Integer,
    s be Element of n-tuples_on D;
    A1: len s = n by CARD_1:def 7;
    1 <= len s by NAT_1:14;
    then len (Op-Shift(s,m)) = len s by Def3;
    then Op-Shift(s,m) is Tuple of n,D by A1,CARD_1:def 7;
    hence thesis by FINSEQ_2:131;
  end;
