Trivially reduce 'a[*1]' to 'a'.
* src/ltlast/bunop.cc (bunop::instance): Here. * src/ltlast/bunop.hh, doc/tl/tl.tex: Document it. * src/ltltest/equals.test: Test it.
This commit is contained in:
parent
abaf102746
commit
a4353d3985
4 changed files with 13 additions and 5 deletions
|
|
@ -1,8 +1,9 @@
|
|||
#! /bin/sh
|
||||
# Copyright (C) 2009, 2010, 2011 Laboratoire de Recherche et Développement
|
||||
# de l'Epita (LRDE).
|
||||
# -*- coding: utf-8 -*-
|
||||
# Copyright (C) 2009, 2010, 2011, 2012 Laboratoire de Recherche et
|
||||
# Développement de l'Epita (LRDE).
|
||||
# Copyright (C) 2003, 2004 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||
# et Marie Curie.
|
||||
#
|
||||
# This file is part of Spot, a model checking library.
|
||||
|
|
@ -160,6 +161,7 @@ run 0 ../equals '{a[*..3][*to2]}' '{a[*:6]}'
|
|||
run 0 ../equals '{a[*..3][*2..$]}' '{a[*]}'
|
||||
run 0 ../equals '{a[*..3][*2:]}' '{a[*:inf]}'
|
||||
run 0 ../equals '{a[*1..]}' '{a[+]}'
|
||||
run 0 ../equals '{a[*1]}' '{a}'
|
||||
run 0 ../equals '{a[+][*1..3]}' '{a[+]}'
|
||||
run 0 ../equals '{a[*1..3][+]}' '{a[+]}'
|
||||
run 0 ../equals '{[*2][+]}' '{[*2][+]}'
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue