| author | Christian Urban <christian.urban@kcl.ac.uk> |
| Sat, 11 Mar 2023 22:01:53 +0000 | |
| changeset 460 | f5c0749858fd |
| parent 421 | 864107857d27 |
| child 491 | 2a30c7dfe3ed |
| permissions | -rw-r--r-- |
import M3._ assert(flts(Nil) == Nil) assert(flts(ZERO::ZERO::Nil) == List(ZERO)) assert(flts(ZERO::ONE::ZERO::ONE::Nil) == List(ZERO)) assert(flts(ONE::ALTs(List(ONE))::ONE::Nil) == List(ALTs(List(ONE)))) assert(flts(ONE::ALTs(List(ONE))::ONE::ALTs(List(ONE))::Nil) == List(ALTs(List(ONE)), ALTs(List(ONE)))) assert(flts(List(CHAR('a'), ONE, ONE, CHAR('b')), Nil) == List(CHAR('a'), CHAR('b'))) assert(flts(List(ONE ~ CHAR('a'), CHAR('b') ~ ONE), Nil) == List(ONE, CHAR('a'), CHAR('b'), ONE))